
A softside service for the personal Scrhputer market 
Quite often we receive submissions that are not commercially 
marketable. For example, someone may have a useful program for rabbit 
breeding, but we do not have enough demand for it to justify the cost of 
reviewing, advertising, and publishing it. A medium is needed for the 
exchange of information on specialized programs. 

Therefore we will maintain a catalog of sources for this software and 
publish it quarterly at a nominal cost. H you would like to list your software 
(FREE!), send this form to: 

S.S.S.S. 

P.O. Box 68 

Milford, NH 03055 

This is a medium for original authors only. Name and address of the 
programmer must appear in ad. We reserve the right to refuse any ad, and 
will publish only ads for non commercial practical applications. SoftSde 
does not review or warranty these programs in any way. 
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by George Blank _ 18 
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by John Olson 26 

X BASIC File Utility 

2£* by Clayton Schneider 36 
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by Lance Micklus 46 

SHARING 
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■< by Richard Taylor '. 56 
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by Richard Taylor ' 65 
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SHORTHAND for LEVEL II 
and DISK BASIC 

■ft TSHORT™lets you type LEVEL fl and/or DISK BASIC more 
quickly and accurately than ever before. Save up to 90% 
programming time and achieve 100% accuracy. 

"*v 31 programming statement keys. 

■*" KUSTOM™key, up to 64 characters -changeable anytime. 

"5v 42 key decais (see picture). 10 area different for DISK users. 

"3£ A single, shifted-key entry types entire statement on screen. 

■fc Fast, efficient machine language. 

•& Uses 580 bytes of LOW memory, i.e.; No MEM SIZE req'd. 

•& Comes on cassettes, one side LEVEL II, the other for DOS. 

■fc Compatible with DOS 2.1, 2.2, 2.3, NEWDOS, KBFIX, etc. 

■% DOS version loads to and executes from disk via TAPEDISK. 

-& Features self-entering commands: CONT; GOTO10: 
KUSTOM™ (Self-enter optional) 

-X-TSHORT™ W/4 page Instruction manual $9.95 
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by Lance Micklus 

This month's $64,000 question is 
— which operating system will 
ultimately dominate the TRS-80 
Model I! market. TRSDOS, CPM, or 
VTOS — ail are, or will be at some 

Coint in the future, be competing to 
e the operating system to use. 
Unlike the TRS-80 Model I, the 
rules of the game are a little 
different this time. The three most 
used Model I operating systems are 
relatively compatible with one 
another. That is, unless you try to 
use some specific feature which 
one system has, but is not in the 
others. Like OPEN "£". As a software 
developer, I would not want to 
write any software that locks me 
into one particular operating 
system without a good reason for 
taking advantage of that feature. In 
most types of programs, however, 
you can avoid these system 
extensions, and write code which 
will run on all three. 

Not so with the TRS-80 Model II. 
At the machine language level, 
where I'm doing a lot of work right 
now, I must work with that 
operating system, and only that 
operating system. A Model II ST80 
for TRSDOS, will not work at all 
under Model El CPM. 

The Model II is now making some 
people aware of an important fact. 
Without the support of software 
developers, users will not use that 
operating system. Wouldn't it be 
interesting if CPM became the 
standard operating system for the 




Model If? That would certainly get 
Radio Shack to think about how 
important their own software is. 
The conclusion I think they'll reach 
is, "so what". 

I think, if things reach that point, 
Radio Shack will just keep selling 
their Model It's, with Model II 
TRSDOS, an operating system 
nobody uses, and smile all the way 
to the bank, it wouldn't be the first 
time that's happened. There have 
been other computer systems that 
came with their own operating 
system, even a BASIC, that nobody 
used. 

The thing that will make or break 
CPM on the Model II are the 
software distributors. Lifeboat 
Associates recently went out of 
their way to see that software 
developers got CPM for the Model 
II by selling it at a special price. 
Clearly, Lifeboat knows that if 
they're going to sell CPM,and CPM 
software, the software people, like 
myself, have to support them. If it 
works, Lifeboat stands to make a 
fortune. 

Randy Cook, too, realizes that his 
VTOS, even on the TRS-80 Model I, 
must get the support of software 
developers and dealers if it is to 
survive. And the latest rumor has it 
that there is a SUPER DOS coming 
out, and the software dealers and 



developers are going to be stroked, 
so they'll support it. 
In the end, I think it will turn out 

this way. Randy Cook is the best 
DOS author in the country, possibly 
the world. But, if you read my 
article called GOING INTO 
BUSINESS in the EIGHTY (Feb. 
1980), then you know that his 
success is going to be morea matter 
of how good a business man he is. 
With all due respect to Randy Cook, 
he writes a terrific DOS, but a lousy 
business contract. That's what will 
decide if the market will go for 
VTOS, or SUPER DOS. 

On the TRS-80 Model II, I think it 
could go either way. Or, it might 
turn out to be a split system, with 
some users running TRSDOS, and 
others using CPM, and still others 
going for VTOS (if and when we 
ever see it). Based on the choice of 
TRSDOS or CPM, I'll pick TRSDOS, 
much as I hate it — low as my 
opinion of it is (which is pretty low, 
folks). ■ 

Look at it this way. Let's say I want 
to write a payroll program. If I try to 
write it for the Model II CPM 
system, then I'm competing with all 
of the other CPM payroll systems — 
some of which have been around 
for years. I've got a better shot on 
TRSDOS because there is less 
competition, and what competition 
there is will be leaving the starting 
gate the same time I am. Second, 
everybody who owns a Model il 
owns TRSDOS, but not everybody 
with a Model ii owns CPM. Third, 
there is clearly just one single 
BASIC which is the standard for 
TRSDOS on the Model II, and 
everybody owns it. With CPM, 
there is no standard BASIC. So, I can 
only market to those CPM people 
who own the same BASIC as I'm 
using. If they don't own it, then they 
have to convert the code over to 
their BASIC. The fact of the matter is 



that users want to buy programs 
that load and go, and do not want to 
have to sit there for hours on end 
changing the code to work with 
their own BASIC. 

You might think that VTOS will 
come in too late in the game to 
compete against CPM and 
TRSDOS. I don't think so, not yet. 
Most Model II users I know are 
hanging loose, still not strongly 
committed to one operating system 
or the other. In fact, many Model II 
users don't have much software to 
run on their computers, short of 
what little they've written 
themselves. So, the market is still 
fluid. 

VTOS has most of the advantages 
of TRSDOS in the Model II 
environment. It could be well 
supported by software people who 
would rather work with a new 
operating system than compete 
with an old one. Furthermore, 
VTOS would come with its own 
BASIC, eliminating the question of 
which BASIC to write for. Finally, 
software distributors could get a 
license for it, so they could support 
it. The main draw back to it, like 
CPM, is that fact that not every bod • 
will own VTOS. 

I happen to have another reescn 
for at least wishing that ' "OS 
becomes the standard ope ing 
system, at least on the TRS-^ . If 
you trace the roots of T~ ")S 
back, you don't have to lool ar 
to find Randy Cook. But, w' ,st 

people don't know is th ., ;v 

trace the roots of CPM .. * ; a. 
enough, there he is again ■ Mr. 
Randy Cook. He is the father: i'Z-30 
and 8080 operating systems. I think 
he should at least get his fair share 
of the market place. 



Q u tstan (ii n g U ti lilies from 

-,, ,; ■ RACE TiGorpp u tei;;- ;- 



INFINITE BASIC 

Adds more than 70 commands to BASIC that can be merged in any combination 
to make efficient use of memory, includes matrix read, inverse, transpose, 
identity, simultaneous equations, scalar, vector, and multidimensional array 
arithmetic, dynamically reshape, expand, and delete arrays, change arrays in mid 
program, read and write arrays on tape, copy elements, zero and move arrays. 
String functions include left and right justify, truncate, rotate, text justification, 
string centering, delete and insert substring, pack string, convert upper and 
lower case, translate characters, reverse strings, verify function, test number of 
occurences, masked string searches, encrypt and decrypt string, compress and 
uncompress string characters. High speed sort routines for strings and arrays, 
including multtkey sorts, are also part of this package. 

For business users, an add on package includes multiple precision packed 
decimal arithmetic, with up to 127 digits of accuracy, binary search of sorted 
arrays, insert elements in sorted arrays, automatic page headings, footings, and 
pagination including forced end of page, and automatic hash for record 
retrieval. Infinite BASIC $49.95. Infinite business (add on) $29.95 

COMPROC COMMAND PROCESSOR 

Chain multiple steps in disk BASIC upon power up, relocatable key 
debounce, allows pauses for data entry at specified steps during 
execution (on cassette for disk systems only) for $19.95. 

DOSORT 

BASIC control program with high speed machine language sort for disk 
users. Merge and sort files on more than one disk if you have 2 or more 
drives. Seifprompting with manual. Specify 32K or48K version $34.95. 

CSF GENERALIZED SUBROUTINE FACILITY 

18 machine language subroutines with easy access for BASIC users. Sort 
1000 element arrays in 9 seconds, read and write arrays to tape, 
compress and uncompress data, move arrays in memory, duplicate 
memory, fast horizontal and vertical lines, 5 routines for screen control. 
Specify 16K, 32K, or 4oK version, for $24.95. 

REMODEL PROLOAD 

BASIC program utility allows you to renumber portions of a program, 
move portions from one location to another, delete, merge, save and 
verify combined and changed programs, and create your own library of 
programs, subroutines, and even data statements. Works on tape or disk 
systems. Two programs on one tape. Specify 16K, 32K, or 48K 
(unspecified orders receive 16K) tape $34.95 
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TIMSER 

Time series analysis program fits data to 9 different 1st, 2nd, and 3rd 
order curves. Goodness of fit data, tables, projected data, confidence 
limits, curve fit, variance, correction factor, seasonal and cyclical 
variations, inflation corrections are all implemented. Detailed user 
manual with illustrated examples. Order tape at $14.95. 

Y-YBAR 

Optical system design program allows manipulation of ray heights at 
lens surfaces using Y-Y Bar diagram method. With documentation on 
tape for $14.95. 

DISK SORT/MERGE 

DSM IS POWERFUL!!!!!! 

• Sorts large multiple diskette files on a minimum two drive Mod-I disk 

system. 

• All records are physically rearranged — no key files are required. 

• Sorts random files created by BASIC, including files containing sub- 

records spanning sectors. 

• Sorts on one or more fields in ascending or descending order. Fields 

may be character, binary integer, or floating point. 

• The sorted output file may optionally have fields deleted, rearranged, 

or padded. 

• Sort commands can be saved for reuse in production applications. 

• Single sort, merge, or mixed sort/merge operations may be performed 

in a single DSM application. 

• Sorted output may be written to a new file, or replace the original 

input file. 
DSM IS FAST!!!! 
DSM is written entirely in machine language for fast sorting. $75.00 



TheSattware Exchange 

6 SoutflStrLgt, Bbx68;Milfotd,Nf I (W)55 603-67^5144 ' 



The Software Exchange would like to announce that 
Microcomputer Applications is an authorized dealer of their 
software in England. Contact: William F. Jupp, 11 Riverside 
Court, Caversham, Reading, RG4 SAL, England. Telephone 
(0734) 470425 




by Phelps Gates 



While writing an API interpreter for the TRS-80, 1 found that 1 needed to 
redefine certain keys: APL uses ait four arrows, for example, and you can't get 
them by pressing keys, even though the video display is capable of printing 
them (PRINT CHR$(94), etc.). Also, I planned to use shifted letters for some of 
the APL operators, since the TRS-80 can tell the difference between upper and 
lower case in keyboard input. But this wasn't going to work unless there was 
some way to make the video display distinguish upper and lower case.. .short 
of getting out the screwdriver, throwing the warranty to the winds, and 
putting in the lower-case modification. 

Fortunately, it's easy to intercept the TRS-80 input and output routines to 
play around with the value of keys: this article explains how. The possible 
applications go beyond APL; you can use it in a text editor which feeds a 
printer with lower-case capability, or redefine keys as graphics characters for 
games (or artwork). As a bonus, you get a flashing cursor, just like the Model 1 1 
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(or the PET...), and a thoroughly debounced keyboard. The routine described 
here is slightly different from the one I used in the APL interpreter — it's been 
modified to work with BASIC programs. 

The key to the keyboard routine is location hex 4016-7 which contains the 

address of the keyboard input subroutine. When you call 2BH for keyboard 
input, the ROM I/O routine looks in 4016-7 to find the address of the 
keyboard scan. Normally it finds 03E3 there: this is the address of a routine 
which gets the ASCII value of the keypress into the A register (or zero if the 
keyboard is clear). But you can fool the computer into using your own input 
routine if you put its address into 4016-7: now, when 2BH is called (either by 
you or by BASIC), control will pass to your keyboard input routine. The video 
display works the same way; a call to 33H will eventually end up at the routine 
whose address is in 401 E-F (normally 0458H), and you can change this one too. 
The following routine sets up the address changes (I've assembled it at 
7F80H — MEMORY SIZE 32639 — but it can go anywhere if you make the 
appropriate changes): 



7F80 218F7F 


SETUP 


LD 


HL,KEYBO 


;KB routine address 


7F83 221640 




LD 


(4016H),HL 


;to control block 


7F86 21C97F 




LD 


HL,VIDEO 


; video routine 


7F89 221E40 




LD 


(401EH),HL 


;to control block 


7F6C C3191A 




IP 


1A19H 


;back to BASIC 



If you're startinga machine language program instead of going back to BASIC, 
replace the last instruction with a jump to your main program. You can't use 
POKE to put the address of KEYBO i nto 4016-7, because it's a two-byte address 
and you can only POKE one byte at a time. As soon as you POKE one of the 
bytes, 4016-7 will contain a garbage address, and since BASIC is constantly 
scanning the keyboard it will immediately head for the twilight zone {also 
known as MEMORY SIZE?). 

The actual keyboard intercept routine is pretty straightforward. We begin 
by calling 03E3 to get the keypress value: 

7F8F CDE303 KEYBO CALL 03E3H 
Now check to see if it's time to flash the cursor on or off: 
7F92 21BF7F LD HL,COUNT jcount the scans 

7F9S 35 DEC (HL) ;256 scans done? 

7F96 200E |R NZ,NOFLIP ; if not, don't flash 

COUNT is a byte (at the end of the routine) which counts the number of times 
the keyboard gets scanned. Conveniently enough, you get a nice flash rate if 
you flash the cursor once for every 2S6 scans; so all you ha ve to do is count this 
byte down to zero over and over. Note that we don't have to save any registers 
(except A), since the keyboard scan routine is through with them. 
Now flash the cursor (if it's time): 



7F98 F5 


PUSH AF 


;save keypress 


7F99 3AC07F 


LD A,(CURSOR) 


;btink the cursor 


7F9C EEOF 


XOR OFH 


;flip 80H to 8FH 


7F9E 32C07F 


LD (CURSOR),A 


;new cursor 


7FA1 2A2040 


LD HL,(4020H) 


;screen location 


7FA4 77 


LD (HL),A 


jcursor to screen 


7FA5F1 


POP AF 


; restore keypress 
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;any key down? 
;if not, we're done 



CURSOR is a byte which alternates between 80H (space) and 8FH (graphics 

square) by means of the exclusive or instruction. Location 4020-1 hex 

contains the address on the video screen where the next character is due to be 

printed. 

7FA6 B7 NOFLIP OR A 

7FA7C8 RET Z 

Now set up for key redefinition: 

7FA8 21C17F LD HL,TABLE ; conversion table 

7FAB 010400 LD BC,4 ;4 bytes to check 

7FAE EDB1 CPIR ;scan table 

7FB0 2005 JR NZ,DEBOUN ;NZ if no match 

The CPIR instruction scans the conversion table (located after this routine), 
looking for a match with the A register. If it finds one, it sets the zero flag and 
leaves HL pointing one byte past the matching byte. If it doesn't find a match 
within 4 bytes (specified by BC), it resets the zero flag. You can customize the 
conversion table for your own needs: I used the shifted arrow keys for left, 
right, and down arrows, and the CLEAR key (value 31) to produce an 
underscore for the APL negation sign. 

Now we make the conversion (if necessary) and debounce the keyboard: 
7FB2 010300 
7FB5 09 
7FB6 7E 
7FB7 0E19 
7FB9 10FE 
7FBB 0D 
7FBC20FB 
7FBE C9 

Starting with a value of 25 for C will loop through the delay 6400 times, which 
should debounce even the dustiest keyboard. 

Now we define bytes for COUNT and CURSOR: 
7FBF 00 COUNT DEFB 

7FC0 80 CURSOR DEFB 80H .-alternates 80/8F 

And finally the conversion table (first the original values, then the 

converted values): 

DEFB 24 ; arrow keys (shifted) 

DEFB 25 

DEFB 26 

DEFB 31 ;and CLEAR 

DEFB 93 ;arrow characters... 

DEFB 94 

DEFB 92 

DEFB 95 ;and underscore 





LD BC,3 


;we're one past 




ADD HL,BC 


;up to new value 




LD A,(HL) 


;and convert 


DEBOUN 


LD C,25 


;set delay 


WAIT 


DJNZ WAIT 


;inner loop on B 




DEC C 


; outer loop on C 




JR NZ.WAIT 






RET 


:all done 



7FC1 18 

7FC2 19 
7FC3 1A 
7FC41F 
7FC5 5D 
7FC6 5E 
7FC7 5C 
7FC8 5F 



TABLE 



We also have to make a few changes to the video printing routine. I decided 
to print a graphics dot (90H) before shifted letters to distinguish them from 
unshifted ones. We also need to blank out the cursor when a carriage return 
or backspace is printed, since otherwise a cursor square sometimes Rets 
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stranded at the end of a line; it turns out to be simplest just to blank the cursoi 
every time any character is printed. Finally, we have to backspace twice when 
we're erasing a shifted character, in order to get rid of the graphics dot; if we 
required the user to backspace again to get rid of the dot, things would get 
fouled up in the input buffers. 

The following routine intercepts the video output routine to accomplish all 
this: 

7FC9 F5 VIDEO PUSH AF ;save registers 

7FCA D5 PUSH DE 

7FCB DDE5 PUSH IX 



This time we do have to save the registers, because the video routine which 
we'll eventually jump to (at 0458H) gets very unhappy if it finds the wrong 
values there (it doesn't care about HL, though). First we blank the cursor: 
7FCD 2A2040 LD HL,(4020H) ;screen location 

7FD0 3620 LD (HL),20H .blank it 

Now check to see if an extra backspace is needed. We want to backspace twice 
if the previous character is shifted (and therefore preceded by a dot). Also, of 
course, the character about to be printed must be a backspace (ASCII 8). So we 
check for both these conditions. At this point in the I/O routine, the character 
to be printed is in the C register: 



7FD2 2B 


DEC HL 


;back 2 spaces 


7FD3 2B 


DEC HL 




7FD4 7E 


LD A,(HL) 


;a dot? 


7FD5 FE90 


CP 90H 




7FD7 2008 


JR NZ,NODOT 


;if not, forget it 


7FD9 79 


LD A,C 


;C has character 


7FDA FE08 


CP 8 


; backspace? 


7FDC C5 


PUSH BC 


;save C (the char) 


7FDD CC5804 


CALL Z,0458H 


.extra backspace 


7FE0 CI 


POP BC 


; restore character 



We have sneaked in an extra backspace which won't appear in the input 
buffer, just as the dot we print doesn't appear there; this keeps everything 
straight. Now print a dot, if necessary: 

7FE1 79 NODOT LD A.C ;check character 

7FE2 FE61 CP 'A'+32 .carry if unshifted 

7FE4 C5 PUSH BC ;save character 

7FE5 0E90 LD C.90H ; graphics dot 

7FE7D45804 CALL NC.0458H ;print, if shifted 

7FEA CI POP BC ; restore character 

Finally we restore the other registers and jump to the ROM video routine to 
print the character: 

7FEB DDE1 POP IX 

7FED D1 POP DE 

7FEE F1 POP AF 

7FEF C35804 JP 0458H ;ROM print routine 

7F80 END SETUP 

13 



ADVENTURES 

by Scott Adams 
Adventures on Tape: Level //, uk 

Adventure Sampler 

Short version of Adventureland, a great way to try out adventuring 
(but you'll get addicted!) $5.95 

Adventureland 

An enchanted world with 13 lost treasures guarded by magical 
beings $14.95 

Pirate's Cove 

Clues in blood-soaked books, a pirate and his parrot, alligators, 
treasure $14.95 

Mission Impossible 

A chance to prevent the nuclear reactor from being destroyed by a 
saboteur's time bomb $14.95 

The Count 

Watch out! you're in Dracula's castle and you must destroy him before 
he bites you! $14.95 

Voodoo Castle 

Remove a curse from Count Christo $14.95 

Strange Odyssey 

Adventure in outer space in the ruins of an ancient alien 
civilization $14.95 

Mysterv Fun House 

it will take ail your ingenuity just to get past the ticket counter, and 

that's only the beginning! $14.95 



lid of Doom 

In the shifting sands of the Sahara lies an ancient Pyramid, filled with 
Egyptian treaasures $14.95 



on Disk, in Sets: 

Set 1: Mission Impossible, Pirate's Cove, Adventureland .... $39.95 
Set 2: Voodoo Castle, The Count, Strange Odyssey $39-95 

TheSatiware Exchange 

14 6SouthSueet,Box68,MilhKl,NHa3aS5 603-673-5144 



NEW FROM ACORN SOFTWARE PRODUCTS, INC. 
LANGUAGE TEACHER SERIES: Spanish or French 
by Cindy and Andrew Bartorillo 

Tests you on nouns, verbs, or miscellaneous words; tests your abilities at 
phrase translations, allowing you to choose whether to tra nslate to English or 
from it; drills you on verb conjugation. You may choose multiple choice mode 
or "go it atone". Gives you running percentage of right answers; then retests 
you on missed answers, gives diagnostic results to show where you need most 
work, and generates printed tests! 

32K, disk only Specify language $19.95 each 

The Software Exchange 

6 SouthStreet, Box 68,MiIford,NH 03055 603-673-5144 




Sooner or later 
someone had to write it! 




32K, disk 
...$19.95 

Genealogy has become an enormously popular pastime (as well as a lucrative 
profession Tor some) in the last few years. 

The fascination is endless. Once you've come across your first amazing revelation 
— that you have a colorful ancestor who was a famous Indian Chief, or an advisor to 
an English King, or what-have-you — you're hooked , my friend , and as these people 
who were your progenitors come alive for you, like characters in a play, so does 
history itself light up like a stage, 

ROOTS is an indispensable aid for all genealogists, whether amateur or 
professional. Up to nine generations of data may be placed into memory per file. 
Allows display of known data concerning a given individual; display of four-generation 
pedigree; searches for specific information within a given category (finds all *Smith" 
last names, or ail births in the 1890's, for example); sorts by any selected category; 
gives printed reports. 

The Software Exchange 

6SouthStree(,Box68,Mitford,NH03055 603-673-5144 
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Now you can have the right terminal package for your 
communication needsf From ST-80 UC — the simple, pre-set, 
: sexpensive terminal program designed for users of THE SOURCE, 
MICRONET, and FORUM 80 — to the powerand sophistication of ST- 
80 III, The Software Exchange has the package for you. 

Afl four programs include the ability to use an unmodified TRS-80 
keyboard to produce RUB, ESC, and other control characters for 
time sharing, software control of the RS-232-C board, repeat key, 
bell, software support for the three most common upper/lower case 
hardware conversions, and fine printer output. 

ST-80 UC 4K Level II cassette, $24.95 

This universal communicator program is an easy-to-use timesharing 
program for the beginner. Special features include preset parity, word 
length, and baud rate (regardless of switch settings on theRS-232-C board} 
for THE SOURCE, MICRONET, and FORUM 80, automatic testing of the 
RS-232-C board, and even spooling of prepared messages on tape directly 
into FORUM 80 using a basic program supplied as a line listing. 

ST-80 4K Level II cassette $49.95 

The original smart terminal program for the TRS-80, ST-80 lets you 
reprogram your RS-232-C board from the keyboard, and run at different 
baud rates. Does not have auto testing of RS-232-C or tape spooling. 



ST-80 D 32K disk program, $79.95 



Special features include connection time clock, option of user-created 
translation tables for keyboard, gathering and pre-formatting data to be sent 
directly from disk to host com puter, spooling of received files to disk or printer, 
editing of received files, and auto logon. If you use it with VTOS 3.1 , you also 
get device driven I/O, job logging, and chaining. 

ST-80 Hi 32K disk program, $150.00 

ST-80 D with extra utility programs 

The Saftwate Exchange 

6Scu1hStreet,Box68,Milfoid,NH 03055 603-673-5144 
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CCA DATA 




gSrW^ 



• 



Complete, illustrated manual in a three ring binder 
Handles 1, 2, 3, or 4 disk drives 

Written in BASIC, with instructions for writing your own 
programs to use DMS files, Including I/O routines. 
Create, add, update, or delete files easily. 
Search any field for any data. 
Sort by any field. 

Print reports, selecting any fields in any order, and 
maintain totals and subtotals on any numberic fields. 
Print mailing labels. 

Print records selectively, for example, only customers 
with New York addresses. 

Codes printed on screen refer you to manual for ex- 
planation at all times Vz 

• Complete Index in manual. 

• Scan function to report statistically on file. You might 
ask how many accounts are overdue and receive a 
report that stated 10 records found in 200 records scan- 
ned (5% of file). 

• Automatically tests line printer ready state to avoid 
system lockup. 

• Printer alignment pattern for labels. 

• Warning Issued If you try to compact data without 
creating a backup. (You can ignore warning). 

Comes on cassette tape for $79.95 (plus $2 shipping) 




The Software Exchange 

6 SouthStreet, Box 68, Milford,NH 03055 603-673-5144 
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WRITING SYSTEM TAPES 

By George Blank 



[ have long wanted to write a machine language monitor in BASIC to 
avoid the hassle of system tape loading and demonstrate what a monitor 
does. Most of the functions of a monitor are quite easy to duplicate with 
PEEK, POKE, and BASIC arithmetic commands. The one problem was 
saving machine language programs. Loading was not necessary, for the 
system command is built into Level II BASIC, but there is no punch 
command. In addition, BASIC is too slow to keep up with a 500 baud tape. 

The first step was to discover the format for system tapes. Thanks to the 
magnificient instruction manual for TRCOPY ($39.95 from Data Print 
Publishing) I soon had that 
HEADER PORTION OF TAPE 



Leader A string of hex 00 

Sync byte Hex A5 

Start code Hex 55 

Program name Six ASCII bytes 

Individual blocks of data 

{Maximum of 256 bytes of data in each block) 

INDIVIDUAL BLOCKS OF DATA 



Block header code Hex 3C 

Length of block Hex 01 (Decimal 1) to 00 

(Decimal 256) 
Start memory for biock (LS8, MSB) 

DATA # of bytes indicated by length of 

block 
Checksum Total formed by adding memory 

and data without carrys in single 



TRAILER BLOCK 



byte 



End code Hex 78 

Execution address (LSB.MSB) 

Once I knew what had to go on tape, the only problem was to figure out 
how to do ii. Since I was editing our first book. Pathways Through the 
ROM, which lists what each subroutine in the Level II ROM does ($19.95 
from TSE when published), that was also easy. I decided to make use of the 
following ROM routines: 
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01 F8 HEX Turns the cassette player off 

0212 HEX Selects cassette one when register A contains 

0264 HEX Writes one byte from register A to tape 

0287 HEX Writes a leader and sync byte 



HOW TO USE THE PROGRAM 

It is necessary to load the program name into 7000 to 7005 hex, the 
starting address of the data to be written to tape in location 7006 and 7007, 
with the least significant byte first, the length of the program in 7008 and 
7009, again in least significant, most significant byte order, and then the 
execution address, also in Z-80 order. 

Then press the play and record buttons on your tape recorder and call 
the routine with a jump to 700C hex. I did not include a routine to input the 
data in the program as i am using it in a BASIC program, and the BASIC 
program pokes the data into place. 

If you want to relocate this program to another location in memory, you 
will have to change the address of "NAME", "START", "LENGTH", and 

"EXEC" in the lines listed in the symbol table at the end of the program. ! 
used relative jumps in the rest of the program, so it can be moved easily. 

With this program, you can really save any machine language program if 
you can find the start, end and execution addresses. The BASIC version 
included here is a minimal program for writing system tapes. I have 
modified this routine to use inside a packed string in my monitor- 
disassembler, "Super Simon", available from TSE for $9.95. It will edit, zero, 
and save memory, and display it in HEX, ASCII, and Z-80 mnemonics to 
either the screen or the line printer. 



788C 


m» 


ORG 


788CH 


. 


im 


88116 NAK 


£9U 


7688K 


STORE Flit NffC 


7666 


88126 START 


EQU 


7886H 


START OF DATA BLOCK 


im 


66128 LENGTH 


ESLI 


7888H 


FINING BYTES OF UftTA 


im 


68146 EXEC 


EQU 


?mt 


EXECUTION rtt*£SS 


81F8 


88iS8CfiS0FF 


Effi) 


61F3H 


TURK GUSSETO OFF 


mz 


88168 SELECT 


EQU 


Klffl 


CASSETTE i OR 2? 


8264 


88178 W.m 


m 


8264H 


1 Wi. TO Ti*£ 


m? 


98188 LEADER 


egu 


8287K 


ttilt LEADER 4 SV?C BYTE 


tmzmn 


mm 


LD 


HLNANE 




m 1E86 


88210 


LD 


i,m 


6 BYTES IN WE. 


7811 if 


88228 


m 


A 
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7K2CD1282 


86238 


CflLL 


SiLECT 


CASSETTE 1 


mzmm 


8824? 


CflLL 


LEADER 


;KITE LEADER * SYNC BVTE 


7818 3E55 


86258 


ID 


r> aw 


START CODE 


■tmmm 


88268 


CflLL 


KITE 




78JD7E 


86278 LOOP! 


LD 


ft(d) 


Ot BYTE OF NAME 


7wa&m 


88288 


CflLL 


KITE 




782123 


88298 


INC 


ti 




7822 10 


885ft 


DEC 


E 




7823 28F8 


88316 


JR 


NLLOQPl 




?825 2fl86?8 


88328 LQ0P2 


LD 


Hi (START) 


ADDRESS OF DATA BLOCK 


7*28 mtm 88338 


LD 


OE, (LENGTH) 


iLFJGTH OF Wfffl BLOCK 


782CflF 


88348 


m 


fl 


m 


7820 8ft 


88358 


CP 


D 


;BL0CK>256bYT£S? 


782E286D 


88368 


Jk 


JENDTST 


M E»OFGATft? 


7838 24 


88378 


INC 


H 


,«*tESS OF (EXT BLOCK 


7831 228676 


88388 


LD 


(START), HI 


STORE 


7834 25 


88398 


DEC 


H 




783515 


WTLBJ 


DEC 


D 


LENGTH AFTER 1HIS BLOCK 


7836 ED538876 88416 


10 


(LENGTH),* 


STORE 


783A14 


88428 


INC 







78381886 


88438 


Jk 


BLOCK 




7830 83 


88446 E»TST 


CP 


E 


END OF DATA? 


783E2829 


88458 


JR 


Z.TRMLR 




7W8 328876 


88455 


LD 


(LENGTH), A 


1RA1LR NEXT TINE 


7643 3E3C 


88468 BLOCK 


LD 


fl,3CH 


BLOCK START CODE 


7845 0)6482 


88478 


CflLL 


WRITE 




7948 78 


86486 


LB 


ftt 


.LENGTH OF bfilft BLOCK 


7849 0)6482 


86498 


CflLL 


WITE 




784C70 




LD 


R.L 


LSB OF BLOCK PDORESS • 


7B4D4F 


86516 


LD 


Cfi 


BEGIN CHECKS* 


78€CD6482 


06526 


CflLL 


KITE 




7851 7C 


68538 


LD 


M 


;I6B OF BLOCK ADDRESS 


W& 0)6462 


88546 


CflLL 


*ITE 




7855 81 


68556 


HDD 


HC 


cttasuN 


im® 


88566 


LD 


&A 




M7 7E 


mm mm 


LD 


A, (ft) 


i BVTS OF DATS 


m®m 


mm 


CfiLL 


KITE 




7m a 


mm 


RCC 


AC 


; CHECKS* 


?mc 


®m 


LD 


G.H 





mzs 


88616 


INC 


HL 


NLXT DATA AWttSS 


785E1& 


99628 


DEC 


E 


COUNT 8VTES 


785F fiF 


88630 


m 


A 


fc8 


7eee bc 


89648 


CP 


E 


LASTBVTE? 


7861 28R 


88658 


JR 


NT, DATA 


SO f OR MORE DATA 


7863 73 


99666 CKSUN 


LD 


ftc 




7964 0)6482 


88678 


CALL 


KITE 


WITE CHECKSUM 


786? 18K 


SQGBQ 


JR 


L00P2 




7069 3E78 


88698 TRAIL* 


LE> 


A.78H i 


EMDCBOE 


7869 0*482 


88788 


CALL 


WRITE 




78SE2taffiH 


88718 


LD 


ILbftC 


ESCUTION ADORESS 


7871 7£ 


86728 


LD 


A,<HL) ; 


LS8 


7872 0*462 


88738 


CflLL 


WITt 




7875 23 


68748 


INC 


HL 




7876 ?E 


88758 


LD 


(Kit) i 


use 


7877 016482 


88768 


OIL 


KITE 




787fl 0*881 


86778 


ca± 


CASOFF 




787DC9 


88788 


RET 






MM 


86798 


END 






88888 TOTAL ERRORS 








H.0OC 784188468 88438 








CASOFT WF8 98150 98776 








CKSfl 7863 88668 








DATA 7857 88578 88658 








BCTST 7830 88440 88368 








DEC 788R 88148 86718 








LEflDOf 8287 88188 88248 








LENGTH 7888 88138 88338 88418 08455 




LOCH 781D 88278 88318 








LQQP2 7825 86328 88688 








MftC 7888 88116 08288 








SELECT 8212 88168 88238 








START 7886 88128 86328 88388 






TRAIL* 7869 88698 08459 








KITE 8264 88178 80268 86288 88470 88498 88528 88548 98588 




08678 98788 86738 88768 
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19 REM * SYSTEM TAPE CRERTION PROGRAM * 
* GEORGE BLANK - MO COPYRIGHT * 
13 REM * SET MEMORY SIZE * CLERK RESTORE RflG * 

28 CLE8R58 :DEFINTN, % Y :POKE16561, 254 :P0KE16562, 111 :POKE16553, 25?. 

29 REM * POKE SUBROUTINE INTO PROTECTED MEMORY * 

38 FORX=28684TO28880:REflDY:POK£X J Y:NEXT 

39 REM * POKE SIX CHARACTER NOME INTO 7888 HEX * 

40 INPUT"<FILENAME> s ;ft*:ft$=fi*+ D ":ft$=iEFT*Cft$,b< 
58 FM»=iT06:V^<MI«<f*,X,O>:P0KE28671+X,Y:HEXT 
53 REM * POKE STfiRT LENGTH fiND EXEC * 

68 INPUT"<STfiRTING fS0RESS>' , >M:N=^/25€:P0KE2867S J M-N*256:P0KE286 
79,N:INPUT"<ENDING fl(X3RESS>";E:L=E-M:N=L/256:POKE286«8,L-256*N;P 
0K£2868tN:INPUT"<EXECUTI0H flD0RESS>'iM:N=M^56:P0KE28682 J M-N*25 
6:POKE28683,N 

69 REM * TAPE OR DISK BASIC? * APPROPRIATE USR ROUTINE * 

?8 X=PEEK<16396> : IFX=281T!€NP0KE16526, 12 : P0KE16527, U2 : X=USR(X> : 

END ELSECMD*T":KFISR=28684:X=USR8(X):END 

79 REM * MfiCHINE CODE STORED RS DfiTR * 

89 DfiTR 33, 8, 112, 38, 6, 175, 285, 18, 2, 295, 135, 2, 62, 85, 205, 190, 2, 126 

, 205, 100, 2, 35, 29, 32, 248, 42, 6, U2, 237, 91, 8, 112, 175, 186, 48, 13, 36, 3 

4, 6, 112, 37. 2L 237, 83, 8, 112, 28, 24, 6, 187, 48, 41, 50, 8, 112 

98 DflTft 62, 68, 285. 180, 2, 123, 205, 188, 2, 125, 79, 285, 188, 2, 124, 285, 1 

80, 2, 129, 79, 126, 285, 188, 2, 129, 79, 35, 23, 175, 187, 32, 244, 121, 205, 10 

8, 2, 24, 188, 62, 128, 205, 100, 2, 42, 10, 112, 126, 285, 188, 2, 35, 126, 285, 1 

88, 2, 285, 248, 1,281, 71, 87, 66 

Corrections To "Whaf s In A Name" - February 

The following letter was submitted by Ruben Rodriguez, 
El Paso, Texas... 

1 enjoyed the articel "What's In A Name" by James 
Garon because it is one of the articles that has helped 
me to understand better and fully use the capabilities of 
my TRS-80. 

However I discovered three mistakes that prevent the 
program from running properly; these are shown below: 

10 The 8th entry data should be 254. 

70 Change the equals to an asterisk f*) 

80 Change the 70 at the end of this fine to 80 

I hope this information will help other readers to run 
this program. 
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Keyboard, Video, and Printer Enhancements 
by Lance Mickfus 

^900 byte machine language program allows you to use a 
I serial printer with the TRS-80. You may specify acceptance 
of linefeeds, lines per paae, characters per line, and printer 
' handshake. 
itlt you have the Radio Shack™ .Electric Pencil™, orone of the 
j other published lower case hardware conversions installed in 
your keyboard unit. KVP contains the software driver 
I routines to enable the conversion. 
^Includes adjustable keyboard denounce routine. Another 
feature is direct entry of graphic and control characters 
from the keyboard. 

Requires I6K level ft or Disk Basic. 
On cassette $24.95 Diskette $29.95. 

KVP 212. a special version for the small systems hardware 
TRS-232 interface. Is available upon request at me same prices. 

The Software Exchange 

6 SouthStreet, Box 68,Milford,NH 03O55 603-67.3-5744 



fflifflfinn^ 
Tape Recorder Azimuth 

Adjustment 

■Ml Solve your tape recorder alignment 





If the alignment of the read/record head on your tape recorder is 

slightly off, you may have a terrible time loading cassette tapes. 

Get the Azimuth Adjustment kit from 

Just Right Products $9.95 

ff "--^J k //j\ jj jp Includes: instructions, Template, 

\ ^^ Jl \^£~-</ I ["High quality narrow gauge screwdriver. 

TheSottware Exchange 

, SouthStreet, Box 68Mt(ord,NH 03O55 603-67>5744 
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BASF CERTIFIED 
DISKETTES 

A "best buy" — high quality 
at a moderate price. 



Box of 5 
Box of 10 

Box of 20 
Case of 100 



$24.95 plus $1.00 shipping 
$39.95 plus $2.00 shipping 
$69.95 plus $2.00 shipping 
$299.00 plus $3.00 shipping 



The Software Exchange 

6 South Street, Box 65, Milford.NH 03055 633-673-5144 




SY 



STIAfi 



COPY 



by Kalman Bergen 

At last! A program which 
allows you to make backup 
copies of object ("system") 
tapes. No more worrying that 
a dropout will send you 'back to the Shack' for a new 
editor-assembler or chess program. Features include copy, 
verify read, rename, and verify write. No knowledge of machine 
language required, so order yours today! 

For 16K, Level II -$9.95 
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DOME 
OKEEPING 




for small business 
by Roger Robitaille, Sr. 

Based on the famous Dome Bookkeeping System, this program is designed to 
serve the small business with few employees. Uses the same chart of accounts as 
the Dome journal, with instructions on how to customiEe to your own needs. 
Presents data year to last week, this week, and year to date. Enter checks and 
deposits; receive screen or printed reports — account summary, check register, 
deposits, and profit & loss. Manual provided. 

Tape version, Level II, 16K (without Dome Journal) $24.95 

(with Dome Journal) $31.95 

Disk version, 32K (without Dome Journal $29.95 

(with Dome Journal) $36.95 

The Software Exchange 

6 SoufhStreet, Box 68,M/forc/,MH 03055 603-673-5144 

CROSS REFERENCE 
UTILITIES 

from Lance Mlcklus 

RX (Disk Version) 32K,1 Disk Systems, on Disk 
$24.95 

XREF (Level II Version) Level ll,16K, 

on cassette $19.95 

REN U MX (XREF with renumber and rescue 

after reset) 

Level ll,16K, on cassette, $24.95 

RENUMBER (separately) $7.95 

The Software Exchange 

6 South Street, Box 68,MWoid,NH 03055 603-673-5144 
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VOICE SYNTHESIZER 
LABORATORY 

by John R. Olsen, Jr. 

Here is an indispensable aid if you're writing programs using the TRS-80 
Voice Synthesizer. 

The program displays the correct phonemes on the video screen: you try 
out various combinations until you get the right words, using all 62 phonemes, 
even the ones the Synthesizer manual indicates cannot be directly input from 
the keyboard. 

You can listen to your creation as many times as you want without having to 
type it on the keyboard each time. When you are totally satisfied with it, add it 
to the inmemory vacabulary. You can also delete words from the memory, 
when desirable, and before you turn the TRS-80 off, make a copy of the 
vocabulary on a data tape. 

As if all this weren't enough, there's a snappy Pork Pig imitation thrown in 
for good measure, which signs off the tapes with "TH-TH-TH-THAT'S ALL, 
FOLKS!" 
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68 REM WRITTEN 1/22/79 BY JOHN R. OLSEN JR. 

7SREH P.O. 60X181 

88 REH MEMBERS, OREGON 97132 

SB REH FHON£; <502) 538-2821 . 

166 aE«<3068);DIHft$<1808>:F=6:GOSUB798 

116 CLS :PRIHT "LONG SHORT S \ S S WW SS \S 

\ SS \ 
128 PRINTPflUSE PAUSE SAY DflD MOP CALL ttftl« HEET HEAVY OVER PIN 
YOU COLD 
136 PRINT'SPftCE 8 ";CHR*<94);"e> :9 ";CBR*(92>; ";fi ,12 * 

.E 245 / "iCHR*<34)»"I!# < ";CHR*<92);"0C 
146 CSQSUB750 
156 PRINT •.PRINT" SS \\ S S S SS S SS \ S S S 

s s \ 

168 PRINTBOOK TOO CUP ANY BAG CHIP 00 BUTTER FAST 00 HI JOB KIT 

E LET mi 

178 PRINT* « 'U 678 & B C D <DT) Q F & H J K 

L M 
i88G0SUe758 
196 PRINT :PRINT"S SS S S S SS S SS SS S S S S 

S 
266 PRINF'NO SING PUT RED SO ASH IT PATH THE VAN WIN YES ZIP AZU 
RE 
218 PRINT'N + PRS>T = <VHY2 X 

T+C=CH 
226 PRINT0960, "VOICE SYNTHESIZER LAB:"; 

228 PRINT*?*, CHR«3B) : PRINT: PRINT iFRMTITM * " 

WICH DO YOU WANT TO DO: "i CHR*<92>; « "; 

246 PRINT'l TRY NEW WORD Z REPEAT LAST HQRD 2. VOCflB 

ULARY" 

256 PRINT" (PRESS 9 IF THE RED ";CHR*(24>; "DEVICE SELECT"; CHR$< 

24); " LIGHT GLOWS STEADILY)"; 

266 K$=INKEY$:IFK$= , "GOTO260 

278 T=166 ; IFK*= U 1"G0SUB478 :G0SUB766 : G0T0226 

288 IFK*= H 2"G0SLB766:GOT0266 

296 IFK$="3"GOTG220 

280 IFK$="9"PRINTK92, "?"; :PRINT©91 " "; ;GQTQ266 

216 Q0T0268 

326 PRINT0768, "1 ADO PREVIOUS WORD 2. SAVE ON Tft?£ 2. LOR 

D FROTt TAPE" 
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228 PRIKTM. HEflR VOCflBULflRV 5. DELETE FROM VOCfiBUURY 5. 

RETURN" 

240 K*=INKEY*;IFK*=" "8310248 

250 IFK$="rfl$<F)«BI:F=F+i:Q0T0238 

268 IFK*= B 2"G0SUB686:G0T0228 

3?8 IFK$="3"GQSUe686;G0TQ226 

288 IFK*=*3"GQT0228 

298 IFK$= a 4"G0T0428 

488 IF»* , 5"GOSUB448:Q0TO238 

43,8 G0TO248 

428 T=288:F0RW=«T0F-i:H=i:B*=ftl(«):G0SU8?68:IFK=3^-i:K=6 

428 NEXTK:GQT0228 

448 PRINT«794, CHR*€38> : PRINT : PRINT : PRINT976& "TVP€ THE WORD NUf6 

ER VOU VPHl DELETED (8 TO ESCflPE)"; :INPU7X:IFX=8RETURN 

458 X=X-l:IF<X<0)+(X>F-i)6OTO448 

468 F0RW=XTOF-2:Rf(«)=F»(H+l);NEXTH:F=F-l:R£TURH 

478 PRINT&794. CHRK38): PRINT: PRINT :PRINT8768, 'TYPE THE PHONETIC 

SPELLING ? •iCH»<14)i :e*="":FO<N=iT027 

488 K»=INKEV*:IFK*='"Q0T0488 

498 L=ftSC<K*):IF<L=8)*<N<2>GOT0488 

588 lFL^THENN=N-2:B$=LEFTt(B* ) LEN<Bf)-l>:G0T0588 

5i8 IFL=12H=2?:G0T0598 

528 IF<L=i8)+(L*9i>+(L=9)QQT0488 

538 IFL=26L=92 

548 IFL=24L*93 

558 IFL=25L=94 

568 ia=27L=9i 

578 B*=B*CHR*(L> 

588 PRINTCHR*(L); 

598 NEXTN:PRINTCHW(15):RETURH 

686 D*="L(» , :(X5UB?48:IFC$="9"RETURN 

618 T=8; PRINT" UHDIM8..."j 

628 IWUT*~L B$ :F0R«=1TQLEN(B$) ; 2=ASC<HlM<Bfc Hi 1) ) : 1FZ=9?2=58: 8 

0T0658 

628 IF2=982=44:Q0T0656 

648QOT0668 

658 8$=LEFT$(8$,«-i)+CHR$(2)+RIQHT$(B$>LEN(B$)-«> 

668NEXTW:^:H=l:Q0SU8?68:IFLEn$<8«,8)="<8<:8<8<8"RETURN 

678 fi*(F)=6*:F=F+l:GQT0628 
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686 D$="SftVE n :GaSUS?40:lfCI="5"R£TURN 

6% PRINT" SAVING. . . '; :F«W=8TOF-1:SV$=R$<W):B*=SV$:T=«:H=1:QOSU 

B760:FORX=1TQLEN<SV*> :2=ASC(KID$(SV*, X, 1» : IFZ=58Z=97 :GGT0728 

718 GQTG726 

728 SV$*l£FT«SV*» X-1)+CHR*(Z>-H?IQHT*<SV«* LBKSVtt-X) 

738 NEXTX:F«IKTS-tSV$;NEX™:PRINTIS-L 1, <8<8<8<8 <$9TSi8L0FOUKS" : 

RETURN 

746 FWNT*?Hl^*C38>:PRINT:reiNT:PRlNT8768, B T0 ";&*»•*, GST 0=6 

SETTE READY, THEN PRESS ENTER"; :«="": INPUTCS: RETURN 

756 FQRX=8T062: PRINT"-"; :N£XTX:R£TURN 

766 PRINT0986, " ";:IFH=iH=6: 

PRINT098?,M+i; 

776 PRINT899Z*?"iB$i" -?"; :F0f$^TOT:K*=IN!<£Y$;lFK$*"9"K=3 

788 NEXTX:R£TtfRN 

738 CLS:PRINT916, "VOICE SYNTHESIZER LABORATORY "; PR INT; PR I NT :C*= U 

NMNPUTDO YOU HEED IHSTRUCT10HS";C»:IFLEFT«C$,l>O"Y"RETURH 

888 PRINTS132, "THIS PROGRAM MILL HELP YOU WRITE PROGRAMS USIHG T 

HE TRS-88" 

810 PRINT'VOICE SYNTHESIZER. YOU HILL NOT NEED TO REFER BACK AN 

D FORTH" 

828 PRINPTO YOUR MANUAL FOR THE CORRECT PHONEMES, SINCE THEY HI 

LLBE" 

839 PRIHT"CONYINI£NTLY DISPUWED ON THE VIDEO SCREEN. YOU CAN T 
RY OUT" 

840 PRINPYARIOUS COMBINATIONS UNTIL YOU GET THE »i CHRK34); "RIG 
HT"i CHR$<34>> " WORDS, USING 

856 PRINT'flLL 62 PHONEMES. " : PRINT 

869 PRINT "YOU CAN LISTEN TO YOUR CREATION FS MANY TIMES ftS YOU H 

ANT (FOR" 

878 PRINT'EVALUATION) WITHOUT HftVING TO TYPE IT ON THE KEYBOARD 

EACH" 

880 PRINTLINE WHEN YOU PRE SATISFIED YOU HAVE IT PERFECT, YOU 

CAM" 

896 PRINT'S® IT TO THE IN-HEHORY VOCABULARY. ':G0SUB1326 
906 PRINT'YOU CAN ALSO DELETE WORDS FROM THE MEMORY, IF DESIRED. 

AND" 
918 PRINTWORE YOU TURN THE TRS-86 OFF, YOU CAN MAKE A COPY OF 

THE" 
320 PRINT-VOCABULARY ON ft DflTfi WE, TO BE READ IN NEXT TIME YOU 
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USE THE' 

928 PRINT'VGICE SYNTHESIZER LABORATORY. " ;PRINT 
948 PRINTTQ ENTER fl WORD, JUST TYPE THE PHONEME SYMBOLS. WITH 
THIS" 

956 PREPROGRAM YOU ARE FREE TO USE ANY OF THE 62 SYMBOLS, EYE 
NTHE U 

968 PRINTQNES THE MANUAL INDICATES CANNOT BE DIRECTLY INPUT FRO 
H THE" 

978 PRlNT"KEYBOARD. SO THAT THE BACKSPACE KEY REMAINS EFFECTIVE 
, YOU" 

989 PRINrWILL HAVE TO USE THE (SHIFT) KEY WITH ANY OF THE FOUR 
ARROWS. ":GQSU61328 

998 PRINT'TO HEAR YOUR CREATION AGAIN, PRESS 2, TO WORK WITH T 
HE IN-* 

1068 PROT'HEHORY VOCABULARY, PRESS I YOU CAN THEN ADO THE PR 
EY1GUS" 

1818 PRINTWORD TO THE VOCABULARY (PRESS 1), STORE THE ENTIRE VO 
CABULARY" 

1828 PRINPON A DATA CASSETTE (PRESS 2), LOAD ADDITIONAL WORDS F 
RQHft* 

1028 PRItfTDATA CASSETTE (PRESS 3), HEAR THE ENTIRE VOCABULARY ( 
PRESS 4)," 

1048 PRINT'OR DELETE ANY WORD. FROM THE VOCABULARY (PRESS 5). ";PR 
INT 

1858 PRINT-WHEN LOADING WORDS FROfi A DATA CASSETTE YOU DO NOT N 
EEDTO" 

1868 PRINT-WORRY THAT EXISTING' VOCABULARY WORDS WILL BE LOST, ft 
LLTHE" 

1078 PRINT-WORDS YOU HAVE CAREFULLY CREATED WILL BE SAVED, AND T 
HE OTHERS" 

1886 PRINT-WILL BE ADDED ONTO THE END OF THEM. ":GOSUB1228 
1898 PRINT*ftS YOU LISTEN TO THE ENTIRE VOCABULARY, YOU WILL NOT I 
CETHAT" 

1180 PRINT'EACH WORD IS NUMBERED. THIS IS SO THAT YOU CAN EASIL 
V DELETE" 
1110 PRINT"ANY WORD YOU DESIRE, BY REFERRING TO ITS NUMBER. (BE 

SURE YOU" 

till PRINT-USE THE CORRECT NUMBER, KEEPING IN MIND THAT THE NUMB 
ERS SHIFT" 
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1112 PRINTEACH TIHE YOU DELETE fl WORD). IF VOU WISH TO STOP TH 


£ WORDS" 


1126 PRINT-WHILE LISTENING TO THE VOCflBULfiRV <TO CHANGE ft PNGNEM 


E, FOR" 


1138 PRINTESWLD S1HPLV PRESS S TO RETURN TO THE CGmftND LI 


ST.*:PRINT 


1158 PRIKT"FREffiJENTLV, WHEN THE COMPUTER IS FIRST TURNED ON> THE 


VOICE" 


1168 PRINT"SVNTHESIZER'S "iCHR$<34>* "DEVICE SELECT"* CHR$<34>i " L 


IGHT WILL GLOW CONTINUOUSLY, * 


ii?e PRINT'HND THE SYNTHESIZER WILL NOT PRODUCE ANY SOUND, THIS 


IS NOW" 


1188 PRINT-SIMPLY ft MATTER OF PRESSING 9 AND THE PROBLEM IS SO 


LVED. ":G0SU81328 


1130 PRINTANGTHER NICE FEATURE IS THAT AS ft DfiTfi TAPE IS REflD 1 


H. YOU* 


1288 PRINT'HILL HEAR ITS CONTENTS SPOKEN ALOUD. WHEN THE TAPE £ 


NDS, THE" 


1218 PRINT'SYNTHESIZER HILL GIVE ft PORKY PIG IMITATION: TH TH T 


HTHBT'S" 


1228 PRINTS!! FOLKS! THIS INDICATES THE END OF DfiTfi BUT IS NO 


T ADDED" 


1238 PRINT"TO THE VOCABULARY. " :PRINT 


1248 PRINFUSING THIS PROGRAM, YOU WILL SPEED IF YOUR CREATION 


F WORDS* 


1258 print-find phrases on the trs-88 voice synthesizer, eyervth 


ING IS" 


1268 PRINT" AT YOUR FINGERTIPS: ft COMPLETE LIST OF THE PHONEMES 


tt SCREEN" 


1278 PRINPAND THE ABILITY TO SltRY USE ALL 62 PHONEMES. aUS 
THE" ! 
1288 PRINT'flBILITV TO CtEftTE AM) SAVE ft VOCABULARY. " :&aSfil32B:P [ 


8INT:PRIHT | 


12S8 PR1NT"F0R YOUR GGNflttlENCb ALL CQfflflN&S FAR USING THIS PRO 


®m, fiRE" 


1388 PS!NT fi LISTED ftT THE KITTOfl Of THE SCREEN AT BLL TiHES, SO V 


OU DO" 


1318 PRIHT'OO NOT NEED TO HEHQR1ZE THEM. * LGQSUS1328: RETURN 


1328 PRINT : INPUFPRBS EHTER TO CSNTME"; ft$: OS : PRINT : RETURN 
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byte off all you can chew! 

SSEMBL 1 
LANGUAGE 
PROGRAMMING 
AIDS 

Z-80 and 8080 Assembly 
Language Programming 

by Kathe Spracklen 

Finally! A good tutorial book on assembly language programming 
by a master of the art! Kathe Spracklen, co-author oi Sargon, tells you 
how with simple straightforward instruction. $7.95* ti shipping 

Microsoft 
Editor/Assembler Plus 

Plus what? Weil, you get the features of the T-Bug and the original 
editor/assembler plus macros and conditional assembly, plus extra 
commands like substitute, move, copy, and extend, plus Z-Bug, a 
powerful debugging monitor with 8 level breakpoint capability. A 
bargain at $29.95 

Super Simon 

By George Blank 

Complete Z-80 Disassembler with ability to generate symbol tables, 
dump in Hex, ASCII, or even decimal with poke addresses. Writes 
machine language tapes. Written in BASIC so it loads easy and is easy 
to modify. $9.95 

®M$$M 77 te Software Exchange 

•«« 6ScuthStreet,Box68.MiIford.NH0305S 603-673-5144 
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The Best 

Has Gotten Better! 

Sargon, the program that came in 
first in the Creative Computing 
Microcomputer Chess Tourna- 
ment, has become Sargon I! -$29.95 

•A vastly improved game 

• Faster response time 

• New level for beginners 
•Easier to pre-set board 

•Hint mode -What does the computer suggest 

Sargon II is the program that took 
on the maxi-computers in the West 
Coast tournament, and finished in 
the money! More thinking power 
than you ever expected in a TRS-80. 



Now in stock for immediate delivery! 




The Software Exchange 

6 SouthStreet, Box 68, Milford,NH 03055 603-673-5144 
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A powerful monitor for She TRS-80 with special ability in Tracing and 
Debugging. Single Step through machine language programs or set up to 
three breakpoints, and took at this dispiay format! 






HF 8C C€ HL IX IV flF' BC' D£' HI' SP PC 
9844 WW C998 B77C 6433 FFFF Oi02 8688 4666 3FC8 41FC 4486 
4466 L£> fi,93 

Ail the power of regular monitors 



A FIRSTtO) LASTfFFFF) 

A FIRST 

B 

BVALA 

6 VALA VALSfO) 

C 

D FiRSTf.0) LAST(FFFF> 

E FIRST<0) 

F FfflST LAST VALUE 

G BRKPTS (3 max.) 

H FIRST LAST VALUE 

I PORT 

K 

L 

L SECTOR MEMORY COUNT(1> 

M FIRST LAST BLOCK 

N 

NO 

N VALUE 

N FIRST 

O PORT VALUE 

P 

P ENTRY 

F FIRST LAST 

O FIRST LAST 

R 

S FIRST LAST GPTION<0) 

T COUNT OPTION(«) 

U FlflST COUNT OPTION'S} 

V FIRST LAST SLOCK 

W SECTOR MEMORY CCUMTfl) 

X FiRST LAST BLOCK 

Z FIRST LAST VALUEtO) 



at well. Look at these commands: 

ASCII dump 

formatted ASCII dump 

start of branch table 

display in decimal 

hex arithmetic 

ctiecK system tape 

dump hex 

edit memory 

find byte 

set breakpoints, continue 

find word 

read port 

keyboard echo 

load system tape 

load from disk 

move memory 

display aymbol table 

symbol table to tape 

define value for symbol table 

define start symbol table 

write to port 

initialize memory blocks 

write memory blocks and start 

define a memory block 

calculate checksum 

display I modify registers 

disassembler 

trace instructions 

unformatted tape I/O 

verify memory 

write to disk 

exchange memory 

zero memory 




6 SouthStreet, Box 68, Mi!ford,NH 03055 603-673-5144 




ADVENTURE 



Get the granddaddy of the Adventure Games! 

From MicroSoft, the people who wrote 
BASIC for all the personal computers, comes a 
version of the original Adventure. NOW, you 
no longer need a PDP-10 for all the power of the 
original game! 

This game fills an entire diskette. Endless 
variety and challenge as you seek to rise to the 
level of Grand Master (until you gain skill, there 
are whole areas of the cave that you cannot 

enter.) 

Requires 32K One Disk ONLY $29.95! 
The Software Exchange 

b SWf)Sn« (.&« 1.8. MfcMftMf (IMS? lUi-UhSUi 
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by Clayton Schneider 



NOTES ON 
OPERATION: 

The program is self prompting. If 

you are using only one drive, you 
may omit lines 20 and 30 and set 
DR$ = '0' in iinelO. 
When converting ASCI I files to PEN- 
CIL, care should be taken that the 
target file has no strings longer than 
30 or so characters without a space, 
or PENCIL may malfunction. I.E. 
'packed' BASIC files should be ex- 
panded with spaces. 

PENCIL files of BASIC text lines can 
be loaded directly by BASIC. The 
lines must have no imbedded 
CR's-only one CR at the end of each 
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line. The line numbers may however 

be out of sequence in the PENCIL 
fiie-BASiC will sort them out when 
it loads them. 

Performing conversions on files 
which are not stored in ASCII format 
is not recommended (BOMB). 

'EXIT TO PENCIL' command 
assumes of course, that PEN- 

CIL/CMD is available on a drive in 
the system. 

NOTES ON THE PROGRAM 
ITSELF: 

Lines 10-40 initialize the system and 
present the user with a choice for 
target drive. All subsequent opera- 
tions will be performed only on that 



drive. ZS represents a filename of 
ZZOOQQ/CES which will be used as 
a dummy file when executing the 
conversion to EDTASM utility. If 
you have any files by this name 
(????) then you should change the 
value of Z$. 

Lines 50-150 present the program 
menu. The call to line 920 in 150 
produces a flashing cursor on the 
screen and accepts a single key in- 
put returned in INS. If INS passes 
the value test in line 150, then the 
value of IN directs the program to 
the proper branch set in line 160. 

Lines 120-250 represent the PURGE 
portion of the program. Lines 
170-200 input the decision for a 
selective or total purge (of visible, 
non-protected) files. Line 210 first 
calls the routine at 760-200 to 
establish the names of the extant 
disk files and return them in A$(1) 
with the number of files in N. Then, 
if a selective purge was chosen, 
there is a call to 860-900. This 
routine moves the flashing cursor to 
the right of each (non-protected) file 
shown in the directory and accepts a 
decision to Kill or Retain each. 

if the decision is to retain the file, 
its' name in (A$(1)) is set to 'null'. 
Lines 220-230 form a protective 
'stop' so that if an incorrect decision 
was made (or even an unintended 
decision for a total purge), exemtion 
of the purge may be aborted. Lines 
240-250 do the actual killing of the' 
selected disk files and display 
what's happening. 

Lines 260-340 do the same for the 
conversion routine that lines 
170-230 do for the purge routine 
above. This portion of the program 
is common to both the 'TO PENCIL' 
and 'TO EDTASM' conversions. The 
correct prompt is chosen by the 
value of F$ in line 260. Unlike the 
Purge routine, the conversion 
routines allow the user NOT to use 



the directory. In this case only one 
file name is input and converted 
(line 290). Line 320 represents the 
same protective 'stop' as with the 
purge routine. Line 340 directs the 
further branch of the program to 
either PENCIL or EDTASM (the CO 
TO ..10' is a dummy branch, as FCS 
will never equal 'V at this point in 
the program). 

Lines 350-420 perform the conver- 
sion to PENCIL. The essence of the 
conversion is to add a 00 byte to the 
end of the file followed by several 
spaces (just in case), and to re-name 
the file to have the extension '/PCL' 
so it may be read PENCIL. Using 
NEWDOS, the first can be done by 
opening the file at the end with the 
'E' option and then printing those 
bytes to it. The routine from 380-400 
examines the name of the target file 
and strips any extension from it (if 
there is one) and adds the extension 
/PCL. Then CMS is built from the old 
filename and new filename to per- 
form the actual renaming by ex- 
ecuting CMDCMS. Lines 350 and 
420 construct the loop to convert as 
many files as were targeted. 

Lines 860-900 use the length of the 
file names found in lines 760-850 
above, flash a cursor to the right of 
the name, and accept a decision to 
purge or convert. If the file is to be 
'passed over' for the particular func- 
tion, the filename is set to 'null' in 
A$(1). By comparing the user input 
to the values S1$ and S2$ which are 
set in the calling routine, this sub- 
function can accept a different deci- 
sion making input for the different 
functions. 

Line 910 is the error trappsng.routine 
set in line 760 to catch the possibili- 
ty of the selected drive being not 
ready. 

Line 920 flashes a graphic character 
at the current cursor position until 
an keyboard input is received, at 
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which time it returns to the calling 

routine. 

Lines 930-940 increment the cursor 
position by the proper spacing 
found in the directory display. 

Lines 430-550 perform the conver- 
sion to EDTASM. The essence of the 
conversion is to add a D3 Hex byte 
followed by six bytes representing 
the name of the file to the start of 
the file and adding a 1A Hex byte to 
the end. in addition, the five digit 
line numbers of EDTASM file are of- 
fset by 80 Hex from their actual 
ASCII representations. The conver- 
sion is done by writing the new 
header bytes to a new file named 
Z$, inputting a line at a time from 
the old file and modifying the 
leading 'number' bytes, writing the 
trailing byte, killing the old file, and 
finally renaming the new file to the 
old filename with a new extension 
{'/SRC'). Lines 460-480 create the six 
byte filename for the header of the 
EDTASM file, stripped of its exten- 
sions and padded to the right with 
blanks and write this header to the 
file Z$. Lines 490-510 input a line at 
a time of the old file, modify the 



first five bytes, and write the new 
line to the file 2$. Line 520 writes 
the trailing byte, closes the new file, 
and kills the old file. Line 530 
renames the new file to the old 
filename with the new extension. 
Lines 420 and 550 construct the loop 
to convert as many files as are 
targeted. 

Lines 730-750 are the three branches 
out of the program. 

Lines 760-850 call the directory from 
basic, and then peek at the proper 
screen locations to construct the 
names of each file called up by the 
directory. As the file names are 
always displayed at the same loca- 
tions, and never contain spaces, the 
routine peeks at the first possible 
location, adds that value to A$(1), 
increments the location by one, and 
checks for a space. If a space is 
found, than the filename has been 
fully constructed, I is incremented 
and the 'peek' is incremented to the 
next possible starting location. If a 
space is found in the new first loca- 
tion, then all directory entries have 
been found. , — . — — 



i S0t ************* * 
•BASIC FILE * 

* ■ U T 1 1 I T V * 

* BY CUftTON SChtCIOB? * 

MiMMtMMM 

19 CLS:0£«ci«»:DIrWC38):CUM>l»(29)HH»(21):TONTCH»<23)j 

26 PRINT-WIVE I («) "i 

3* B0ajB?48:IFIW< , e'0RIHf>*3"Tr€IG8 

40 Mt>INI:Zf**ZZ00QB/43S: ■*«* 

58 CLS:X-i5488:I>«:N=e:T^:PR»(TCHR$(23); :PRIHT:PRINT 

68 PRINTTRB<4)*BRSIC FILE UTILITY' :rWF 

79 PKINTTf*<4)"i * PURGE' 

09 PRIHTTWW? * flSC to pa- 
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B 4 = EXIT TO BASIC" 
ii8 PRINTTft8<4>"5 = KIT TO DOS' 
128 PRifffTP8(4)°6 ■ EXIT TO PENCIL* 
138 PRINT ;PRINT B PRESS f«®ER DSIRED "; 
146 QOSie740:IFII»<"rORJN*>VTf€K14e 
158 F(>IN*:0NVfiL<FC*)GGT0i68,256,256,558,568,5?9 
168 PRIKTF«:PRIKT:PRIKT"SELECTfVE OR TOTAL PURGE (S/T) *> 
178 60SU8?48:P6$=IH$ 

188 iFP6*-"T'-neeee 

138 IFPGtO'S'THENlTB 

286 G0SUB59B: IFPG^^IHENPRINT'PIESS K TO KILL INDICATED Fill, 

R TO RETAIN*; :Si*=*K':S2***R*:G0ajB6tt 

218 PRINT'PRESS <ENTER> TO INITIATE PURGE ON DRIVE *;DRfc V:PRI 

NT'PRESS AMY OTHER KEV TO ABORT ■; :G0Sie748 

228 IFI«KXH»(13).THENG0T056ELSEPRINTCHR*(27>ia*j 

238 F0RI=«T0N.IFft«I)O"T!iNPRBIT"KiaiNG *;A*a>; :KHtKI>+V 

*W»:KILLK*:PRlKTCL*i 

248NEXTI:0OT058 

258 IFFC*=*2*THENF**' TO PENCIL "ELSEF*=« TO EDTASH" 

268 Ct5:«IlffCHRI(2)i-raNVERSI(]H'iF$:PRM:PRINT«USE DIRECTORY 

(M) ? "i 

278 6051*748 

288 IFIN$='N"MNCLS:PRIKT:INPUT' , TflRGET FILE *;A*<I>:G0T0339 

238 IFIWO B VTHEK278 

388 QOSJB588:PRINT*PRESS C TO CONVERT FILE*;Ffc", X TO BVPflSS'.S 

i$='C , :S2*='XVGOSUB680 

318 PRINTPRESS <EHTER) TO INITIATE CONVERSION*; Bfc V: PRINT "PRE 

SS ANY OTHER KEV TO ABORT "; :G0SUB748 

328 IFIN$OCM»(O)TffiB0T059ELSEPRINTCHR$<27)ia$i 

338 0NVAL<FC*)QOTOie, 348, 429 

348 FORMTQNiIFASa^-THOHeg 

359 PRINT"C0NVERTIM6 '; ft*< I ); Ffc : CWWD+" :"+DR* 

368 0PEN*E B ,LCI;PRINT#1,CHR$<8); > "; : CLOSE 

378 IFINSTR(A$<D,V")=8TttEN8$=A*<I)+ , /m , :G0T0398 

388 B*=LEFT*(ft$<I>, INSTR(AKI), V')-l)+"/Pa*: IFA*<I)=8$THEN486 

398 CW»"REWE *■«*♦* TO Nfi*:CHDCK* 

489 PRIKTCLfc 

418NEXTI:G0T056 
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428 fORT=*TQN.iF«U)="'THFJB48 

438 PRINT'COWERTING 'if#(lhK; :CW»< I )+':'««& 

446 OPEM*IM,C*:OPEM"0"»2»Z* 

458 IFINST8<«<I>, V>=BTHE»WNKI> .G0T0478 

466 BK£FT*(«(I>, WBTRfflKI)/ V")-i) 

478 PRIMTI2, CHR*<2U)♦lE^*(B*+• "» 6); 

488 IFE0F<l)THEH5ie 

498 L11EINPUTtLi*:IFl0KS»><ntflK8B 

388 FQRS=lT05:fiID*<«, S,i>=C*$<aSC<MW<l*,S, t»+IH88> :NKTS:PR 

IKT#2,8*;G0TQ488 

518 PRINTI2,CHR*(«Kim .CLOSE :KIUC* 

528 CH*="R0HC ■♦2*» TO NW+VSRCVCHDCf* 

538 PR1NTCU; 

548NEXTI.-G0T058 

558CLS:£» 

568 aS:C»*S' 

578 CLS:C«mNCIL* 

588 CLS:PRINTCHR*(23);' , PIERSE «IT\ONBiRORGOT0738 

5% cw'-oir ■.'■*m-.mm 

688 0NERR0R80T08:PRIMT;PRiJ{T"fl£ftSE HfllT ■; 

618 »<D*" 

628 R*=CH»(Pffi(Oi+V»:JF»=* 'T«»«FV««GOT067IBiEQOT0648 

638 «<I>=8KiHfi*:V=V+i:(»Te628 

648 PRIKTCH»<42); :IFPEK<*W>«*M1W<1>«" 

658 I=W:Q0SUB758 

668 PR1NT0**<8>; :V=8:»T06ie 

678 N=M:1«8:X=«;PR1NTCL*; :RETURN 

668 lFR$(D=''T*H(OT0728aSEV=LEI<(ft*(I))+X:PRIMTti3«+Y>i :QQ6UB7 

48 

698 IFIN*=S2*raNR$a>*":QQT07te 

788 IFIN*OSirnCN688 

718 PRINTING 

728 I=M:a(KUB758:IFI<4m€N6e8ELSO«IKT:reiKTCHR*<31>:RETWI 

738 PR1HTCLS:PRINT"0RIVE NOT CONNECTED OR EHPTY*:F0RT*TQ18BI:I€ 

XTT:RESICi8 

748 IN$=INKEVi:IFINi*"T»€lf*INTCH»<143>; .FCRT*TOi5:NEXTT:PRIN 

TO**<8>i :FORT=«T015:NEXn:QOT0748ELSBETURN 

758 IFI=3*IKT<I/3)THENX»X+24aSEX«X+2e 

768 RETURN 
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What do you do when you finish reading 
TRS-80 Assembly Language Programming 
by Bill Barden . . . 

and you want to do some serious machine 
language or assembly language programming 1 ? 

Buy the 

Z80 Software 



Guide & 



Utility Routines • Stack Operations • 
Searches and Sorts * Floating Point 
Routines * Z-80 instruction Set 

The Index iista over 100 assembly language 
routines and subroutines that you can use! 
$14.95 plus $1.00 shipping 



MORE BOOKS FROM 



\ \ .1 I lv* 



New from 

SCELBI 

Publications 




TheSaftware Exchange 

f>Sa#>SHea,Sox6B,Mi6ad,NHa!OSS 60J-67.i-5J*> 



TRS-80 DISK AND 
OTHER MYSTERIES 

by Harvard C. Pennington 
if you are sertous enough about disk pro- 
gramming to own BSM-20 or NEWDOS + . 
then you ought to purchase this book. It 
explains the organization and features of 
TRS-DOS 2.0, 2.1, 2.2, NEWDOS, and 
VTOS, tells you how to use Superzap, 
RSM-2D, Monitor 3, Debug, Dlrcheck, and 
LMOffset, explains the directory track on 
the disk, file structures (including Electric 
Pencil files), and even gives detailed pro- 
cedures for recovery of lost data. While 
(his book Is not recommended for the in- 
experienced user, It Is essential for the 
serious disk programmer. The book is ex- 
pensive, In B'/z by 1 1 format with typewrit- 
ten Instead of typeset printing, and only 
130 pages, yet the information Is worth 
the price. $1*.9S 

plus $1.00 shipping and handling. 

LITTLE BOOK OF 
BASIC STYLE 

John M. Nevison 

Ideal reference for BASIC programmer, 

Junior high to research scientist. Indexed, 

Illustrated, 151 pages. 

ts.ss pius$1.00shlpplngandhandllng 



TRS-80 ASSEMBLY 

LANGUAGE 

PROGRAMMING 

William Barden, Jr. 

Covers Z-80, an Introduction to Assembly 
Language, the Radio Shack Shack Editor/ 
Assembler and T-Bug, and debugging 
methods; also explains how to move 
data, the use of arithmetic, compare, 
logic, and bit operations, shifts, strings, 
tables, Input and output, and 12 common- 
ly used subroutines. Well indexed and il- 
lustrated. 
$3.98 plus $1.00sh1pplng.and handling 



TRS-80 INTERFACING 

by Jonathan A. Titus. 
This valuable reference book for the hard- 
ware enthusiast with an understanding of 
Assembly language programming in- 
cludes the schematic, printed circuit 
board artwork, and instructions for 
building a TRS-80 breadboard, plus 18 ex- 
periments to give a solid understanding 
of interfacing to the TRS-80. SS-S5 

plus $1.00 for shipping and handling 
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Diagnostic 

by Dave Stambaugh 



• 35 or 40 track in same program 

• Tests controller functions and status bits 

• Tests drive speed and allows adjustment 

• Tests switches and mechanical 
components 

• Verifies data transfer 

• Tests drive seek function 

• Sector and byte write and read tests 
using atf possible patterns 

• 16 to 48K, 1 to 4 disk drives 

• Tests cross cyiinder interference 

• Tests drive-to-drive compatibility 

The best and most complete diagnostic you can buy 
to verify disk drive reliability and find problems. 
Displays 19 error messages and cross references 
them to 14 possible causes. Continuous test option 
for exhaustive testing keeps statistical record of all 
errors found. 

Supplied on diskette with manual for only 
$24.95. 



TheSottware Exchange 

6 SouthStmet,Box 68, W«lford,NH 03055 603-673-5144 




In the beginning there was Level I 

THEN THERE WAS LEVEL I! 

NOW -LEVEL III BASIC 

Open the manual and load the cassette. Then get ready to work with the 
most powerful Basic interpreter you've ever had your hands on . . .Level 
III Basic for Radio Shack Computers. It loads right on top of the Level II 
ROM, and In just 5K of space, opens up your capability to new dimen- 
sions. For starters, this new cassette-based interpreter gives you most 
of the commands usually found only in disk BASIC. Plus graphics com- 
mands. Plus Powerful editing commands. Plus long error messages, hex 
and octal constants and conversions, user defined functions and a 
number of commands never before available on either cassette or disk 
interpreters. 

Now do more than 
ever before 

With the most 

powerful cassette 

Basic you can buy 
For the TRS-80 




• EASIER LOADING, FEWER KEYBOARD ERRORS 

• BASIC ACCESS TO RS-232 

• EASIER AND MO RE POWERFUL GRAPHIC 

• 10 USR CALLS 

• ERROR MESSAGES 

• TIMES 

• TIMED INKEY 

• RENUMBER 

• ONLY MICROSOFT COULD DO IT. 02 Uwl HI Basic w«* created by Microsoft, 
ttw wn company that wrote Lamt II Basic tor Radio Shack. And It actually um Laval II as a 
foundation for this enhanced add-on. 

• AVAILABLE NOW FOR ONLY $40.95. Von g* the power that mlgh.t otherwise 
coat you hundred* of dollar* In additional aqulpmartt for only $*».«, Prico Includes ths Users 
Manual, a Quick Reference Card, and a preprogrammed cassette tape. 



The Software Exchange 

6 SouthStreet, Box 68,MHfcod,NH 03055 603-673-5144 
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Written by the author of your Level t Users Manual, LEARNING 
LEVEL II picks right up where the Level I Manual leaves off. It also 
supplies the changes needed to make the Level I Manual compatible 
with your Level II TRS-80. 

LEARNING LEVEL II covers all Level II BASIC beyond Level I, plus 
.much more. It shows you how to use the Editor, explains what the 
many error messages are really saying, and leads you thru conver- 
sions of Level I programs to Level ff. 

Dual cassettes, printers, the Expansion Interface with clock and 
other features are explained In the same easy-to-learn style that 
made the Level I Manual famous, LEARNING LEVEL II was created 
specifically for your Level II TRS-60! 



Yes, I want to really learn how to use Level II! 



Ptessesend copies of 

LEARNING LEVEL II. My check for $15.86 + 
$1.00 P&H Is enclosed. 



I understand my order will be shipped 
promptly tnd there Is a 30 day --noney-back 
Ouarsntee, tt^^m »95 



$15 



(soft cover) 



Name 

Address _ 

City 

State 
Zip Code 



The Software Exchange 

' 69MlhStK0,8ox6$.M«vtt.r«HOX6S 60J-673-5I*) 



TIRED OF DISK 

STOP BLAMING YOUR DRIVES - 
FIX YOUR DOS! 

NEWDOS, by Apparat, is the third generation disk operating 
system for your TRS-80. NEWDOS corrects over 70 errors and 
omissions in TRSDOS 2.1 and disk BASIC, yet the two are 
completely compatible! Programs and files saved under one can 
be used with the other interchangeably. Going from- TRSDOS 
to NEWDOS is like going from Level I to Level II: more 
power, more convenience, greater speed. 



• Use all DOS commands 
(incl. directory) in BASIC 
Automatically load and run 
a BASIC program 

on power- up 

s Produce variable cross- 
reference tables 

• Open 'E' to add to 
sequential files 

• Append files 

• Use your line printer as 
a screen printer 

« Renumber BASIC programs 

• End keyboard bounce 



Editor/ Assembler for disk • 
Disassembler • 
(Z80 machine code) 
LM Offset-allows transfer of any • 
system tape to a disk file 
{automatically relocated) 
BASIC1-Level one BASIC • 
saved on disk 

LV1DSKSL - not a typo, this • 

saves and loads BAS1C1 

programs to disk 

DIRCHECK-tests and lists • 

disk directory 

SUPERZAP-display/print/modify ♦ 

any location in memory or on disk 



And, best of all, say goodbye to system crashes, lost data and 
wasted time caused by your old, bug-ridden system software. 

Apparat's NEWDOS is fully documented and available for 
only $49.95. NEWDOS + , Just $99.95 

Use of this software may require documentation 

available only with the purchase of Radio Shack TRSDOS 
and/or the Radio Shack Editor/ Assembler. 



The Software Exchange 

6 5a*Sre<),Bo<M.IV«loirt/vHQJOS5 «0J-6?J-SW 



DEVICES (Part 2) by Lance Micklus 



In an earlier issue of PROG/80, 1 
wrote an article about DEVICE and 
TRSDOS and VTOS. I've gotten so 
much comment about that article, 
and so many requests to shed more 
light on the subject, that I've 
decided to add this article — a 
further discussion of DEVICES. 

The thing that comes to mind is 
FORTRAN. FORTRAN is the oldest 
high level language still in popular 
use. Micro-computer people today 
seem to have little idea of what the 
old computers of 25 years ago were 
like. 

One machine that I used about 12 
years ago was the t.B.M. 1620. This 
machine had about 20K of RAM, a 
card reader, card punch, and a 
typewriter (not a Seiectric either). 
At that time, I was an electrical 
engineering student at Tri-State 
College. One course in FORTRAN 
computer programming was 
required. A few years earlier, I had 
worked at I.B.M. as a computer 
operator, mostly on the 1401. 1 had 
written a couple of programs at 
I.B.M. , so, I wasn't totally green to 
computer programming. 

At the end of each week, we were 
required to write a FORTRAN 
program. After coding the thing on 
paper, we went, down to the key 
punch room and punched each line 
of code out on computer cards. The 
finished program was submitted at 
the I/O desk. Twice a day, they 
would take ail of the programs 
submitted and run them on the 
school's I.B.M. 1620. All of the 
output was printed on the 
typewriter. When you went to pick 
up your output, you got your deck 
of cards back (assuming the card 
reader didn't eat them), and the 
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printed output from the typewriter. 
You then went back to the key 
punch room and made up new 
cards to fix the errors, and repeated 
the process. 

Some things should be painfully 
obvious. First, you really didn't 
want to write long programs. 
Second, you wanted to work it all 
out on paper very carefully before 
you tried to run your code on the 
computer. Yet, this is how many 
computer programs, even in the 
commercial environment, were 
written. 

FORTRAN is a device driven 
language. Each device has a 
number called a LUN (Logical Unit 
Number). The function of each 
LUN depended on the machine you 
were using. The most common 
arrangements were: 

#1 — Console typewriter 

#2 — Paper tape 

#5 — Card reader 

#6 — Line printer 

#8 — Card punch 

Not all of the LUNS were used. At 
Tri-State College, the console 
typewriter was the line printer, and 
their FORTRAN had been adjusted 
to cause that to happen. How? 

Let's say you want to print some 
numbers on your line printer. The 
WRITE verb, in FORTRAN, requires 
a Logical Unit Number, In this case, 
it is 6. FORTRAN calls one of its own 
subroutines called $LUN and passes 
the line to be printed on to it, along 
with the operation to be 
performed. $LUN contains a table 
with the number of all LUN's 
defined for that particular 
computer. Included in the table is a 
list of what that LUN can and can 



not do. You can not, for example, 
read the card punch, fn this 
example, $LUN finds that there is a 
device #6 on this computer, and 
device H can be used to WRITE. 
From the table, $IUN puils out the 
address of the machine language 
subroutine and jumps to it. This 
subroutine was written just for the 
Tri-5tate College 1620 computer. 
The subroutine caused a line of text 
to be printed on the typewriter, 
which was our line printer. Had the 
coilege later bought a real printer, 
all they wouid have to do is change 
this subroutine and everything 
would still work just fine. 

Suppose I later went and 
changed the program so that the 
output went to device #8 instead of 
#6. Nothing would really change. 
FORTRAN would still call $LUN, 
which would locate device #8 in the 
table. Finding that device #8 can 
WRITE, it would have jumped to 
that subroutine instead. The 
subroutine for device #8 takes a line 
of TEXT, and causes it to be 
punched on the card punch. 

Now, let's suppose I again 
changed my mind and decided 1 
wanted to have my output go to 
device #1. Still no difference — but 
this time, the output goes to the 
typewriter. Waif a minute! At Tri- 
State College, they didn't have a 
line printer, only a typewriter. 
Whether i output to device S6 or 
device #1, S still end up out on the 
typewriter, it turns out that the 
subroutine for LUN "1, and the 
subroutine for LUN #6, are one in 
the same. LUN #1 wiii also allow for 
Input from the keyboard of the 
typewriter, it turns out that since 
the subroutines for LUN #1 and 
LUN #6 are the same, YOU CAN 
INPUT FROM THE LINE PRINTER! 

it would not be a good idea to do 
this, however. One day, you may 
find a real I.B.M. 1403 chain drive 



printer sitting there. To make it 

work, the subroutine for device #6 
would be different than device #1 
because they are two different 
machines. There's no way to enter 
data from a 1403 printer. 

Let's stop and think about this for 
a minute because we have a really 
beautiful thing here. This means 
that we can take this FORTRAN 
compiler and run it on ANY l.B.M. 
1620 no matter what kind of 
hardware is hung on it. The only 
change we need to make is in' the 
table in $LUN, and we have to 
supply our own machine language 
subroutines to support the 
hardware we have running on our 
own particular system. 

Several years ago, Digital 
Research developed the CPM 
operating system for micro- 
computers. The idea was to dev.elop 
an operating system which could be 
used on any 8080, and later Z80, 
micro-computer. All you had to do 
was supply the machine language 
subroutines for your own particular 
brand of equipment, and make the 
existence of that subroutine known 
to CPM. Thus, CPM acts very much 
like$LUN. 

Any program running under 

CPM does its I/O almost the same 
way FORTRAN on the 1620 does. It 
calls CPM, passing to it the identity 
of the device it wishes to I/O with, 
the operation to be performed, and 
the location where the data is to 
corne from or go to. CPM will then 
check for the existence of such a 
device in its table, check to be sure 
the ope ration is valid for that 
device, and pass control to the 
subroutine for that device. By 
changing the table and the 
subroutine, we can control what 
happens in the real world when that 
device is used. The beautiful thing 
here is FLEXIBILITY. 
One computer running CPM 
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might have the printer subroutine 
drive a serial port because the 
printer is a serial printer. Another 

computer running CPM might have 
its printer subroutine drive a 

parallel port because that's how the 
printer on that system is connected. 
The programmer writing under 
CPM doesn't care what is out there. 
He is free to change the device 
anytime he likes. 

This kind of flexibility will let you 
do a lot of things. By patching CPM 
so the keyboard device is 
supported by a subroutine which 
gets its input from a serial port, and 
patching the video device to output 
to the same serial board; using a 
modem, a terminal thousands of 
miles away could run your 
computer. (NOTE: In CPM, the 
keyboard and video are normally 
the console device). The problem 
with CPM is that it is harder to learn 
to use than TRSDOS. 

Randy Cook understood the 
advantages of a device system, and 
wisely decided to use it fortheTRS- 
80. Devices were given names 
which began with an asterisk 
followed by two letters. In addition 
to this, he made it easy to change 
the equivalent of the LUN table so 
the function of a device could be 
altered, i.e., the printer can really 
be a disk fife spooling the 
information up, or just a real 
printer. Likewise, a file can be 
treated as a device. Sequential files 
are a good example. Does it really 
matter if the data you're writing out 
is really going out to disk, or out to a 
printer? Usually not. There are 
special cases. 

Consider a PRINT @ in a BASIC 

program. The new position of the 
cursor is not sent to the *DO 
device. Bill Gates at Microsoft 
pulled a fast one. He just changed 
the address of the cursor location, 
by-passing the operating system 
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entirely. What PRINT @ does, in 
effect, is treat the video monitor as a 
random access device since we can, 
at will, cause the data to appear 
anywhere on the screen. 

Disk files are the other special 
case. They, too, can be randomly 
accessed. The positioning of the file 
is not done by transferring data. 
Rather, it is done by calling routines 
in DOS which move the position of 
the file. This isn't any different than 
what Bill Gates did with PRINT @, 
except that it is being done by 
Randy Cook. 

The problem with these special 
cases is that many things in the real 
world can't do what they do. It's 
very hard to move the line printer 
to line 87, then to fine 3, and then to 
line 47. 

Suppose we force the issue, and 
change the operating system so the 
•DO device is actually going to put 
anything that was to be put on the 
screen out to a disk file, ft would 
work, but we would not get the 
positioning information in a PRINT 
(3> statement. So, if this is something 
you think you might want to do, 
don't use any PRINT @'s in your 
programs. 

The same thing is true if we use a 
device in place of a file. An example 
might be to take some data that we 
would normally 'write out to disk, 
and have it, instead, printed on the 
line printer. That's fine, so long as 
the file is not randomly accessed. 

The reason we have several input 
and output devices on a system is so 
we can separate different types of 
data. Obviously, we don't want 
"PRESS ENTER TO CONTINUE" in 
the middle of a report. In actual 
practice, output is formatted and 
divided up for use by a specific type 
of physical thing. Certain data is 
formatted and sent to device *PR 
because that is the data which we 
expect the user to print on a iine 



printer. In other words, looking at 
this from a programmer's point of 
view, we expect device *PR to really 
be a printer even though when Joe 
Blow runs our program, he may 
have changed things around in his 
operating system so that device *PR 
is a PLOTTER. 

There is a school of thought that 
sees this situation as being 
awkward. But, the device people 
don't. If the output being sent 
through device *PR is the wrong 
kind of data for Joe Blow's plotter, 
that's Joe's problem. On the other 
hand, maybe Joe wrote his own 
clever driver program for device 
*PR which makes his plotter 
perfectly happy to operate like a 
line printer. It turns out that Joe 
wrote his plotter routine so he plots 
each letter out on paper in script, 
using liquid ink, so the output looks 
hand written instead of printer. 
And, whenever Joe wants, he can 
reset device *PR back so it sends the 
data to his Paper Tiger printer. 

An even better idea for Joe would 
be to buy a copy of VTOS. Using the 
SET command, he can now create a 
new device called *PP for his 
plotter, joe's word processor 
normally saves the text out to a fiie. 
Since the program writes to the file 
sequentially, would it really matter 
if the output went to a file or to a 
device on the system? So, instead of 
typing TEXT/LST for the output file 
spec, he types *PP as a filespec. 
Magic! His nice neat text material is 
printed on his plotter in script. Or, if 
he prefers, he could give his word 
processor the filespec *PR and have 
his line printer print out his text 
material. Another thing he can do is 
give his word processor the file 
name TEXT/LST. Then from VTOS, 
he just types COPY TEXT/LST TO 
*PP, and when that's done, he types 
COPY TEXT/LST TO *PR. Now, he 
has his text material in script on the 



plotter, and then in print on his line 
printer. And he doesn't have to SET 
and ROUTE anything. 

But joe really k nows how to use a 
device driven operating system. 
Instead of using the COPY 
command twice, as noted above, to 
go out to his plotter and then to his 
printer, he can do both at the same 
time. After spooling his text 
materia! to a disk file, Mr. Blow 
types LINK *PP TO *PR. Next he 
types COPY TEXT/LST TO *PP. 
WWWOOOWWW! Now Mr. 
Blow's text material gets plotted (in 
script yet) and printed AT THE 
SAME TIME! it turns out that the 
text materia! was really a job 
resume. After plotting and printing 
the resume, Mr. Blow realizes that a 
job resume, made on a plotter in 
script, isn't going to score any 
points with the Ajax Tuna Fish 
Company, Seeing the need for 
additional copies, on the printer 
only this time, he types COPY 
TEXT/LST TO *PR. Now, the job 
resume is printed on his line printer 
BUT NOT ON THE PLOTTER. 

Why? Because the LfNK 

command Mr. Blow used connects 
the plotter to the line printer, but 
not the line printer to the plotter. 
Thus, the order of the device names 
are significant. As it stands now, any 
output to the plotter will also be 
printed, but any output to the line 
printer will only be printed. 

I freely admit that most people 
are not doing what I'm doing with 
my computers. The features I must 
have, you may be able to do 
without. And things you must have I 
can do without. But let me say this: 1 
think that once you start using a 
device driven system, understand 
it, and begin to take advantage of all 
of the things it can do, you may 
never again want to go back to a 
dedicated task operating system 
such as the Model 11 has. 
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Editor's Recommendation: This is one of the most valuable programs I own. I have used It (or tasks as 
varied as debugging, disassembling Level II, and storing my copy of Sargon ll on disk for fast loading. 
The only other program I have that compares in value is NEWDOS. — Georg* Blank 




BSM 2 (TAPE) $26.95 
3SM 2D (BISK) S2S.9S 
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Makeinciyour 
supply closet! 



High Quality supplies 
at excellent prices! 



■t.lmumm 



Cassettes 

C-10 Box of ten each $6.50 plus $1 shipping 
C-20 Box of ten each $7.50 plus $1 shipping 

Mini Diskettes 
Premium Quality: 
DYSANBoxofS 



BASF Box of 5 
Box of 10 
Box of 20 
Case of 100 



$29.95 plus $1.00 shipping 

$24.95 plus $1.50 shipping 

$39.95 plus $2-00 shipping 

$69.95 plus $2.00 shipping 

$299.00 plus $3.00 shipping 




Diskette Library Case 
Floppy Armour™, Box of 5 
SoftSide Vinyl Binders 



S*.96 plus S1 shipping 

S4.SSphj«S1 (hipping 

$4.96 (itch plus S1 (hipping 



TO ORDER: 
CALL TOLL-FREE 
1-800-258-1790 

SAM - 9PM, EST 





TheSaitware 
Exchange 



6 SouthStreet,Box 68,Mitford,NH 03055 603-673-5144 
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TYPING 




by 

Roy Groth 

Vou probably have often thought 
that it would be a lot easier if you 
didn't have to "hunt and peck" 
at the typewriter or 
computer keyboard, it you 
could only double your typing 
speed, the job would be done 
in half the time! And, with 
increased speed end conf tdertce 
comes increased accuracy. 

Level II, 16K- $19.95 

Typing Tutor is a set of programs designed to teach you touch 
typing — from the basics of learning where the keys are, to 
practice drills at speeds that would make a Seleotric shudder! Each 
lesson Is displayed on the screen, Including, at the early stages, a 
keyboard diagram. You are quizzed and graded, and you progress 
at your own pace. When you have mastered a lesson, the computer 
advances to the next, using CAI (computer aided instruction). 
Progress is fast, painless, and even fun as you keep pushing to 
break your own record. 

So, whether you're going back to school or just want to enter 
programs from SoftSide that much faster, Typing Tutor can help. 

Order a copy today and be a better typist by next week. 



The Software Exchange 

6SaXhStiBel,Box6a,Miltod,NHa3a5S 603-673-SH4 




Programming Problem? Question about a TSE Program? 

Try our Hotline... 

You can c»H our programmers direct on Tuesday nights from 7 to 10 PM, (EST) 

(603) 673-5144 
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APL is a powerful and elegant computer language, yet it is easy to learn. It is 
ideal for the engineer, scientist, mathematician, circuit designer, or for the per- 
son who just wants to learn a new language. 

Due to the absence of the special character set for APL on the TRS-80*, APL 80 
uses shifted letters, which are identified on the screen with a lighted graphics 
block before the letter. If you have a modified TRS-80 (Electric Pencil 
Modification), a lower case driver is included to display the shifted letters on 
the screen. 

Special features of APL 80 include the ability to save and load workspace on 
disk, return to DOS for directory or commands without losing your workspace 
or variables, and send output to a line printer. Four workspaces are included 
with lessons on the use of APL operators, commands, and functions, with many 
examples. 

All of this plus instruction manual and the book APD An Interactive Approach, 

for only 549.95 plus $1.00 shipping. 32K, 1 disk required; 48K recommeded. 

Reduced featured, 16K Level II tape version, no lessons, no book, I/O capacity, 
$14.95; with book, $39.95 plus $1.00 shipping. 

APL An Interactive Approach, Separately, $15.50 plus $1.00 shipping. 




The Software Exchange 

6 SouthS(reet,Box 68,Mi«ord,NH 03055 603-673-5144 
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YOUR 
TRS-80* 
MICRO- 
COMPUTER! 



.*a! 



&, 



ihug along on an electric 
abacus when you can have the 
power of a berserk Ayatoilah! 
These products double the 
horsepower of your computer! 



ELECTRIC 



NewDOS + ,w.ith DIr Check, 
Super Zap, Disk Editor As- 
sembler and A DOS that 
reaiiy worksl $99.95 

Electric Pencil, It starts as 

the best text editor for your 

TRS-80*, but that Is only 

the beginning! $150.00 

TRS-80 Disk and Other 

Mysteries by Harvard 

Pennington. All you need to 

know to unleash the power 

of Super Zap and Electric 

Pencil. $13.95 



\r- 



-ONLY $269 
;FOR ALL 
THREE 



6 SouthStreel, Box 68, Miltord, NH 03055 603-673-5144 



:■■', .:■ '#y:0ftir i^Rretiritf ■.' 

■■■■ ;■■' ■--" ' : :-;. : --- "' : t\'*' ■.'.■".'■■'■ : . '.';"■■'!* 
For the thousands 
who have enjoyed 
X -Wing Fighter," 
X- Wing II presents 
a totally new element 
in the game! 



'i ^ T r * - \ Where \ Wmg I lei l .Death btar 
iooming on the screen X-Win.g II let* \ou guide your 
tighter nito the treruh. tinci the exhaust port, aim cind 
■tire — . all the while avoiding. enemy lighten) r.x eel-lent- 
g ra f :> hies M I eve I s o I p I a v . an d ■ extern m ve IN l< L Y% 
conimands make this one-ot ■ ou'r mo->t exciting 
"Votil-tinie" 'games 

Level II, 16K - $9.95 

The Software Exchange 

6 ScxJth Srrort, liox 68, Milford, \1 1 03055 403-673-5144 



A NEW USER'S GUIDE TO 



First Time on the Source 
by Richard Taylor 



Congratulations! You've just 
received your membership 
information from THE SOURCE. 
You have your ID number, and your 
white three ring binder full of 
information sent to you by THE 
SOURCE. What do you do next? 
Unfortunately if you are like 90% of 
the people I know, you determine 
that your RS232 board is not 
working! (Did you think it was just 
you?) People are doing strange 
things to get that little board 
working. If you are a soldering 
expert, you can build up all the 
contacts on the board. However, if 
you are like me, you will have to five 
with the fact that every few weeks 
the contacts will need cleaning. 1 
know one gentleman who insists 
that the board has to be heated with 
a hair dryer before it will function. 
Another person tells me that 
overheating is the problem and you 
must relocate your CRT and keep 
the lid off the RS232 compartment 
in the Expansion Interface. It seems 
that a combination of oxidation and 
a tendency for the board to bow is 
the main problem. To secure the 
connection one user suggests 
bending all of the pins up at a 45° 
angle. He warns that the board is 
difficult to reinstall because of the 
short screws. Some people are 
convinced that the problem lies on 
the underside of the plug in 
question. The plug is symmetrica] 
and contacts the interface board in 
the same manner it attempts to 
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contact the RS232 board. If al! else 
fails you will have to open up the 
bottom of the interface (voiding 
your warranty) and remove the 

plug by taking out the mounting 
screws that run through the 
interface board. This will allow you 
to remove the plug and dean both 
sides while bending up all the pins. 
Building up the solder on the 
fingers of the Interface board is also 
recommended. A reliable source 
tells me that this is the method used 
by Radio Shack. 

I keep my monitor on a shelf 
above the I nterface and I also keep 
the screws out of the RS232 
compartment cover. I find that a 
light pressure on the contact edge 
of the board gets mine running. 
Some people have no problems. If 
you do, then experiment, just be 
aware that the contacts can be worn 
down easily. The most consistent 
cure I have heard is to clean the 
contacts with an ink eraser. This has 
worked for me, but it is not 
recommended by Radio Shack. 

Everyone agrees that this board 
was a big design error. I know of 
two companies coming out with 
their own versions that will work 
without the expansion interface. 
ST80UC and ST80III now incorprate 
a test for the RS-232-C board as the 

Srogram initializes. A nice touch. It 
as saved me some otherwise 
wasted long distance calls. 
Now that you have rebuilt your 



Expansion Interface, we can get on 
to the reason you bought the RS232 
in the first piace — to access THE 
SOURCE. 

To access THE SOURCE, set your 
Modem to FULL DUPLEX and 
ORIGINATE. THE SOURCE 
recommends an 8 bit word length 
with parity disabled but a 7 bit word 
with even parity works fine. 

Call the local number THE 

SOURCE has given you and follow 
the procedure for either TYMNET 
or TELENET. If you are using an ST80 
series program and signing on 
through TELENET please answer 
"Terminal =" with DECWRII1. This 
will greatly increase your speed for 
receiving and transmitting. All Nulls 
are eliminated and that works welt 
with ST80. 

THE SOURCE has expanded to 
two separate systems {10 and 11) 
and more are planned for the near 
future. After hooking up to the 
correct system you will be asked to 
sign on. Give your account number 
followed by a space followed by 
your password. Please note that 
your password is entered as control 
characters. They will not print on 
the screen. This atlows you to show 
off THE SOURCE at your local Radio 
Shack and still sleep easily knowing 
hundreds of strangers will not be 
using your account the following 
day. 

The system will sign you on and 
tell you what time it is. Then it will 
just sit there. Don't get jumpy and 
start hitting ENTER and BREAK. 
Everything you enter is stored in a 
buffer and used to answer any 
subsequent prompts and questions. 
Depending on how busy the system 
is, in a few seconds (2 - 45) you will 
get some introductory information 
about whats going on such as: 
YEARNING TO BE A PARTY 
ANIMAL? TYPE....DATA TUPPER- 
WARE 



When the announcements stop you 
will get the system prompt { ). 
Typing "DATA TUPPERWARE" will 
get you just what you think it will. I 
made up "DATA TUPPERWARE" 
but you get the idea. . 

One of the first things you should 
do on the system is to get 
acquainted with the MAIL SYSTEM 
(the backbone of THE SOURCE). 
One of the best ways to do this is to 
send me a letter, as I run"SOURCE- 
80" the TRS-80 Users Group of THE 
SOURCE. Start by typing MAIL. The 
system will answer with "Send, 
read, or scan". Answer "SEND". It 
then asks "To?" and you answer 
with the persons account number 
to whom you wish to send the 
letter. In this case you would 
answer TCB575. The next question 
is "Subject:". You may answer 
anything you want here up to 122 
characters or 132 if you used my 
DECWRIII hint at sign-on. Hit 
ENTER to terminate the subject. 
Now you're on your way. The 
system says, "Text:". Start typing 
your message. Just like using 
ELECTRIC PENCIL right? Wrong!! 
As you are typing, THE SOURCE is 
quietly counting up to 122 or 132 
characters and then chopping off 
everything between that character 
and the next carriage return 
(ENTER). You must hit ENTER at 
least every 122 characters. The best 
habit to develop is that of hitting 
the ENTER key at the end of every 
Video line. 

Your letter may consist of 
anything and be of any length. 
Some of THE SOURCE-80 mail runs 
400+ lines. We send entire BASIC 
programs through the Mail. You 
can use null lines or anything else 
with the exception of the ©symbol 
(more on that in the future). Typing 
an ESCAPE (control C) ends and 
sends the letter. For ST8Q people, 
that's your CLEAR key. You may 
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also type ".SEND". All text handling 
commands begin with a period as 
the first character of the line so THE 
SOURCE can recognize them. If 
things get messed up while you're 
typing a letter you can always type 
".DISPLAY" and your letter will be 
retyped for you to examine. 

After sending the letter you are 
returned to the "To:" question. 
Typing "QUIT" will return you to 
command mode. "QUIT" works 
almost anywhere you have the 
opportunity to answer a question. 
The "BREAK" key for ST80 is also a 
lifesaver. At the point where you 
have inadvertently asked UPI for all 
the stories it sent during 1979, you 
will be very relieved to know the 
"BREAK" key will stop it from 
complying with your request. 

A lot of what you do your first 
time on THE SOURCE will depend 
on whether or not you have a 
printer and then upon whether or 
not you have a terminal program 
that allows you to use that printer 
easily. The manual you received 
from THE SOURCE is just an 
introduction to the vast amount of 
Information stored in THE 
SOURCE. I have a book of over 75 
pages of printouts taken from THE 
SOURCE data files and it is not 
completel Page nine of your Users 
Manual shows you an index for 
SYSINFO. This file on THE SOURCE 
contains detailed information 
needed for creating and editing 
files. It also has the fundamental 
information needed to program in 
BASIC and FORTRAN on THE 
SOURCE. Don't confuse this with 
DATA SYSDOC. That file lists the 
manuals available for purchase 
through your account. The file lists 
the title and the price and. how to 
order them on THE SOURCE. 

Typing "DATA UBALL" will give 
you a general index of the data files 
you might want to read. Each one of 
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these files will lead you to more and 
more detailed information on the 

subject. 

THE SOURCE is set up for an 80 
character line length and a 24 line 
CRT. This does not work perfectly 
with the TRS-80. THE SOURCE will 
pause every 24 lines and wait for 
you to hit ENTER. At any one of 
these pauses, you may type 
"NOCRT" and defeat this pause. 
This is especially useful if you are 
printing the information or just 
loading it into ST80's memory 
buffer. On the same subject, the 
MAIL system also pauses and asks 
"—MORE—". The first time allows 
you to skip the letter by answering 
"NO". Thereafter it will ask "— 
MORE — " every 24 lines. If you are 
receiving a program from me you 
will want to defeat this pause. 
Answer one of the "— MORE— "s 
by typing "HARDCOPY" or 
"NOMORE". The printout will then 
proceed uninterrupted. 

Typing "POST" will put ycu in the 
POST SYSTEM. This is a Bulletin 
Board service and it's organized by 
category. Only valid catagories 
such as "TRS-80" and "CLUBS" will 
be accepted. If you answer the 
catagory question with "HELP" you 
will be rewarded with a full list of 
valid catagories and the number of 
■ messages in each. I think you will be 
amazed at some of the catagories. 

At any point in your wanderings 
around THE SOURCE you may 
suddenly see the message, 
"***TCR344 User 22*** following 
by something like "Hi, want to 
chat???" This is TCR344 busting in to 
see if you want to chat. If you do 
you will have to get out of whatever 
program you are in and return to 
COMMAND MODE. Once you get 
the prompt, type "CHAT TCR344". 
You are now in direct contact with 
TCR344. Anything you type appears 
on his screen and vice-versa. When 



you finish your thought, hit (ENTER) 
twice to let him know it's his turn. 
Chatting is very time consuming 
but it can be fun. If you type "POST 
READ CHATTER" you will see 
messages from other people who 
wish to chat, if they have left by the 
time you read their message the 
system wili tell you they're not 
around. 

Notice that line, "POST READ 
CHATTER"? It's called a 
COMMAND LINE and it puts you 
into . the program with all input 
answered. Once the called function 
is finished you will be returned to 
COMMAND MODE rather than 
staying in the program requested. 
This works with UPi and MAIL also. 
You may type "MAIL READ" for 
instance. Typing "MAIL TCB575" 
places you right into sending a 
letter to me and when it is sent, 
returns you to the system prompt. 

Typing "ONLINE" gives you a 
listing of who's on the system at that 
moment. Unfortunately you can't 
see who's on the other systems but 
if you know they are there you can 
still CHAT with them. 

"DATA USEDIR" tells you all 
about the User Directory. You may 
add your own name of search 
through for users with similar 
interests to your own. No lasts 
names are allowed. You can search 
by interest, name, user ID, or State. 
Please be aware that this search is 
tike any other computer search. 
TRS-80 will not match TRS 80 or 
TRS80. 

When you send me a letter asking 
about SOURCE-80 I wili send you 
some of the latest information 
generated by the group. The 
information may fnclude entire 
BASIC programs or programs 
written in Assembler Source code, 
The group has developed it's own 
software to work in conjunction 
with ST80D or III for disk/This 



software includes the "BASIC File 
Utility* program that is being 

published in this same issue of 
PROG/60. This program allows you 
to take an ASCII file generated by 
ST80 and convert it for instant use 
with the EDITOR ASSEMBLER. The 
program will also convert ASCII 
files for use in the unmodified 
PENCIL. I say unmodified because 
you may remember a previous 
article of mine in which I discussed 
using ST80D + PENCIL + VTOS 3.0 
for total flexibility in editing text 
and programs generated by ST80, 
Our group has now developed this 
same capability for PENCIL in 
NEWDOS and TRSDOS. 1 mention 
only ST80D and ST80III because 
frankly i am unaware of any other 
terminal program that comes close 
to their 'power. They are fast 
becoming the standard intelligent 
terminal software for the TRS-80 
and rightly so. Lance Micklus is a 
member of our group and he takes 
on all of the difficult questions 
involving his programs. 

That should be plenty of 
information to get you started on 
THE SOURCE. The customer service 
toll-free number is 800-336-3330 
and they are very helpful. If you 
have any questions involving THE 
SOURCE and the TRS-80 I hope to 
see them in my mailbox on THE 
SOURCE - TCBS75. 

P.S. If you get bored with all the 
information features you can 
always type "DATA CHECKERS", 
Lance Micklus rewrote all of the 
I/O routines and we now have "THE 
MEAN CHECKERS MACHINE" 
running on THE SOURCE. He has 
kept the screen width to 40 
characters so APPLE'S and PET's can 
play too. 
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Remember the Good Old Days? . . . 
You can recapture them! 



Level I in Level li 

by APPARAT 

Level I BASIC interpreter loads in top 
4K of any 16K Level if TRS-80. 
Allows unmodified load, run, and 
CSAVE of Level I programs — no 
conversion hassles! Great for teach- 
ing beginners, young and old, to 
program in BASIC. 



/ \ ."System" tape for Level II, 16K — $15.00 



The Software Exchange 

6 SouthStKet,Box68,MHford,NH 03055 603-673-5344 




THE AUTOMATED 
DISKETTE DIRECTORY 

by George Blank 

All you do is insert the diskette in the drive and type the name or number you use 
for that diskette. The program automatically reads the directory of the diskette, 
ignoring invisible flies like BASIC/CMD and normal DOS files like 
DISKDUMP/BAS, and stores it in a disk file. 

DISPLAY OPTIONS INCLUDE: 

Printout to screen or line printer 

Alphabetic sort 

Search for single program using INSTR 

(A search for TRE would find STARTREK and TREES) 

Index to a single disk 
Search and RUN program 

Three programs with Instructions for loading on a NEWDOS diskette and instruc- 
tion manual. 

IMPORTANT: This program requires the following minimum system: 
At least TWO disk drives NEWDOS by Apparatuses CMD"0iS"and open"E") 

32K of memory 
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This Could Be The Handiest 
Program You Own! By Ken Knecht 

IIViKMiiiclMalbHe 

A data base manager is a general purpose file management program 
that can be set up for different uses. This could be the handiest program 
you own! 

You specify the number of items in the file, whether they are 
numerical or alphanumeric and how long each Hem is, and the program 
creates the file, receives your data, sorts It, searches for information, 
stores and retrieves from disk, and will even perform arithmetic with data 
Items. 

Very easy to learn and use, yet you can use it for mailing lists, hobby 
collectons, inventory, appointments, accounting, work organizing, radio 
logbook, billing records, telephone numbers, or a thousand other usesl 

Manual and 3 programs in basic on disk tor 32 K or lar.ge systems 
with one or more drives only $39.95 

The Software Exchange 

6 SouthStteet, Box 68,Miiford,NH 03055 603-673-5144 
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PENCIL/PAL 



by Microcomputer Specialists 
Form letter generator for use with the 
Electric Pencil by Michael Schrayer. 
You can use a mailing list maintained 
as a PENCIL file, print letters selec- 
tively using selection, codes, use 
custom greetings for each account, 
and print labels. Requires 32K 1 Disk 
System, Electric Pencil, and lower 

■ case modification kit. (Program 121 

■lines 5600 Bytes) $35. 
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6 SouthStreet, Box 68, Milforti. NH 03055 603-673-5144 








TRS-80 Opera Theatre 



The finest musical program we have seen for the TRS-80. It deserves a 
quality amplifier. Amazing sound! Richard Taylor is an opera singer with a 
magnificent ear! 
Selections; 

• WILLIAM TELL OVERTURE • MUSETTA'S WALTZ 

• SEMPRE LIBERA • QUEEN OF THE NIGHT 

• LA DONNA E' MOBILE 



"Didn't want to stop — nearly died laughing" - Scott Adams 

Word guessing game with sound effects, one or two players. Truly 
challenging and competitive. 

Separately on cassette $9,95 (each program) 

Both programs on disk $19,95 (two programs) 

The Software Exchange 

6 SouthStreel, Box 68,Milford,NH 03055 603-673-5144 
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NUMEROLOGY 

by John T. Phtllrpp 

Contained within the name you received at birth is the uncanny ability to 
delineate your characteristics and forecast your future. The number of letters in 
your name and your date of birth are the basis for this occult art. Even skeptics 
are amazed at the accuracy of the readings . . 

ANOTHER GREAT FORTUNE-TELLING PROGRAM from the author of the 
highly successful SECRETS OF THE TAROT and I CHING. Complete your set! 

32K Disk.... $14.95 



6 SouthStreet, Box 68, Milford,NH 03055 603-673-5144 
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THE HOTTEST NEW GAMES 
OF THE EIGHTIES! 

Two masterful strategy games 

by Douglas Carlston . . . 

Level II, 16K cassette $14.95 each 

SPECIAL! Both 

GALACTIC EMPIRE 
and GALACTIC TRADER 

on disk for only S29.95U! 




If you're already a GALACTIC EMPIRE 
fan, you absolutely MUST have 

ALACTIC 



Build an empire that spans 
the Universe! Deploy mighty 
armies, conscript soldiers on 
strange planets, send forth 
starfleets of warships and 
transports, set tax levels, 
plan the use of resources, 
dispatch intelligence mis- 
sions . . . Conquest of ail the 
known inhabited worlds is 
your goal! 



Peace has finally come to the 
Galactic system, united Into a 
single federation. Though you no 
' longer command Galactlca's Im- 
perial forces, you still have the vi- 
sion and ambition to exploit new op- 
portunities in trade. With two loyal 
comrades (Kirman and Computer 
Central) you set out to make a for- 
tune. You must outwit the clever 
locals at the ancient game of barter, 
contend with the fuel cartel, watch 
out for spies from the large trading 
firms, and call upon all your ex- 
perience In traversing space, In- 
cluding the use of suspended 
animation. 
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PERIODICAL 




by Dave Stambaugh 

YOU DON'T HAVE TO BE A LIBRARIAN 

Every professional or serious hobbyist who 
relies on current literature to update his/ 
her knowledge can benefit from this pro- 
gram. Build a file using any subjects or 
publications you like (18 per file). Allows 
you to add, delete, edit; search by sub- 
ject or publication; list on CRT or line 
printer all or selected entries. SAVE, LOAD with 
both tape and disk versions. 




-^•Catalog and classify your 
library of computer (or other) 
magazines by Individual ar- 
ticles under subject, publica- 
tion, date, page, and title 

ifUst entries by subject or 
publication to CRT or printer 



^Maintain data files 
on cassette or disk (2 
versions available) 

%Edit, delete, add entries 

at anytime 

includes complete 

instructions 



Cassette version: Level II, 16K 
Disk Version: Single disk, 32K 
(Minimum configurations) 



14.95 
19.95 




The Software Exchange 

6 SouthSttvet, Box 68, Miiford,NH 03055 603-673-5144 
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Computer Bulletin Board services 
are springing up all over the 
country. Some of the most com mon 
are called CBBS, ABBS, and FORUM 
80. The latter is TRS-80 based and 
depending on your needs, can offer 
a wealth of information to the TRS- 
80 user. If you have a MODEM and 
only use it to send and receive 
information with another user, you 
are missing a lot of fun and 
information that is just a phone call 
away. 

FORUM 80's operate at 300 Baud 
using a 7 bit word length for norma! 
transmission and an 8 bit length for 
graphics. Choose a number from 
the list below and give it a try. 

Set your MODEM for FULL 
DUPLEX and ORIGINATE and get 
your terminal program loaded. Dial 
the number and listen for a high 
pitched tone. Once you hear the 
tone, put your phone in the 
MODEM. !f everything is running as 
it should, you will see "???????". 
Answer this by hittingthe ENTER key 
(C/R). Next you will see "DO YOU 
NEED LINEFEEDS". Answer this with 
"Y" followed by a C/R. The next 
question is "HOW MANY NULLS (0- 
50)". Answer "0" C/R. It will then ask 
you your name and where you are 
calling from. Once logged on, the 
system will tell you what functions 
are available on the system. "HELP" 
will get you just that, help on what 
thos*functions mean. The basic 
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purpose of a FORUM 80 is the 
exchange of information through 
questions, answers and announce- 
ments. The command "S" will scan 
through the messages and give you 
an idea what they are about. Most 
systems offer "FLAGGED MESSAGE 
RETRIEVAL". This allows you to hit 
"F" while the summary is running 
and "FLAG" the messages you are 
interested in reading. After the 
summary is finished, entering "F" 
will print out all the messages you 
flagged. Ifyou call theFORUM80in 
Dunstable, Mass. you can see the 
on-going dialogue between Lance 
Micklus and his ST80D users. There 
is some valuable information to be 
gotten and some fun also. Once you 
have tried one of these systems your 
phone bill may never be the same 
again. 

One very exciting feature has just 
been added to two of the FORUM 
80's and I am told many more will be 
following suit. This feature allows 
the automatic transmission of 
programs to ST80D users. It 
automatically opens and closes the 
"memory buffer" and prompts you 
when to save it to disk. I have used 
this with the FORUM in Dunstable, 
Mass. and the original FORUM 80 in 
Kansas City, MO. On both systems it 
has run error free. 

Here is the list of FORUM 80's 
currently operating in the U.S.: 



Orange County, CA 
San Francisco, CA 
Ventura County, CA 
Washington, DC 
Ft Lauderdale, FL 
Tampa, f L 
Augusta, GA 
Chicago, II 
Witchtta, KS 
Boston, MA 
Dunstable, MA 
Kansas City, MO 
St Louis, MO 
Princeton, H\ 
Las Vegas, NV 
Memphis, TN 
Dallas, TX 
Fort Worth, TX 
Whchita Fails, TX 



714-730-1286 

41S-348-2139 

805-484-9904 

202-337-4694 

305-772-4444 

813-223-7688 

803-279-5392 

312-767-0202 

316-746-2078 

617-431-1699 

617-649-7097 

816-861-7040. 

314-838-7784 

201-874-6833 

702-873-9491 

901-276-8196 

214-288-4859 

817-923-0009 

817-855-3916 

* The original 



Local Systems 
Boston, MA 617-963-8310 

CBBS 
Boston, MA 617-354-4682 

ABBS 
Anaheim, CA 714-772-8868 

ABBS 



Other THS-«0 Systems 



Olathe, KS 

Engineer-80 913-764-1520 

Programming and information of 

interest to engineers. 
Avionics-80 913-782-5115 

Information exchange service for 

those Involved in aircraft electronics. 
Fairfax, VA 

Family Historians 703-978-7561 

Forum 

The system for anyone interested in 

genealogy. 
Kansas City, MO 
Market-80 816-931-3135 

Message exchange and data for those 

dealing in commodities. 

The list is always growing but each 
system keeps a current listing of other 
system phone numbers. Have fun. 



INPUT, 



A G0LUMN OF YOU H LETTERS 



Dear Sir: 

The TRS-80 Model II System Disk 
File SYS107SYS has some nice 
looking edit commands in it. To see 
them enter (in TRSDOS), 
LIST SYS10/SYS.EFPN [SLOW,A| 
"ENTER" 
(Look at Records 6 and 7 
I just hope to find some time to 
try them out one of these days. 

That same password (EFPN, all 
caps) works for ALL the system files 



on the Model II I am programming. 
TRSDOS version 1.1 
Happy Programming 

DJ. Swindell P.E. 

P.S. It only took 2 hours to find with 
a BASIC program and the 'ON 
ERROR GOTO' trap statement. 
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Inventory 'S' is an exciting advance in 
small business software for the TRS-80. Its 
in-mempry system of data storage solves the 
problems of both sequential and random access 
files while providing extremely fast, random 
access to any record. Other advantages include 
the ability to use any combination of characters 
for stock number, an exceptionally flexible record 
format (field names are user-definable), and the 
ability to store data to tape or disk and upgrade at 
any time. Up to 150 items can be stored per 16K of 
available memory, with stock number, descrip- 
tion, cost, vendor, reorder, and profit data in each 
record. An important feature is the ability to use 
your present stock numbers (a sort function is 
included), unlike competing systems which force 
you to use a different "record number". 
User-definable screen and printer reports let you 
see just the data you need, when you need it. 

Inventory 'S* is an extremely powerful 
business management too! which can be used ' 
effectively with a I6K, tape based system or a 
48K, disk and printer system — a claim nobody 
else can make! 

Tape version, 16K (min.), Level 3! — $24.95 

32K Disk version ~ $59.95 
(same as tape, but on diskette with additional Disk I/O) 




67 




MTBQ TflX 

Time Saving Programs From Aardvark Software 
Help You With Your 1980 Income Tax 



All Programs: 

• Form 1040 And Schedules 
A,B, and TC 

• Print To Screen Or 
Printer 

• Calculate Dividend Exclu- 
sion, Taxable Portion Of 



Unemployment Compensa- 
tion, Political Contribution 
And Medical Expense 
Limits, Excess Itemized 
Deductions, And Capital 
Loss Limitation. 
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MICRO TAX II AND 



• Adds Schedule G And 
Forms 4625, 4726, 6251 

• Calculate By Alternate 
Methods To Get Most 
Favorable Tax Rate 



• Calculate Minimum Tax 
And Compare With Alter- 
nate Minimum Tax 



MICRO TAX III 



• Adds Schedules C, D, E, 
SE and Form 2119 

• Depreciation Using 
Straight Line, Declining 
Balance, And Sum Of 
Digits 

• Taxable Portion of Capital 
Gains 



• Capital Loss Carryover 

• Adjusted Itemized Deduc- 
tions For Alternative 
Minimum Tax 

• Self-Employment Tax 



MICRO TAX IV AND V 
(DISK VERSIONS) 

• Includes Form 2210 (Under- 
payment of Estimated Tax) 



PRICES: CASSETTE: Micro Tax i, $25; 
Micro Tax II, $35; Micro Tax III, 
$50 

DISKETTE: 

Micro Tax IV, $100; Micro Tax 
V, $150 

(Add K Shipping and Handling) 




TheSottware Exchange 

6 SouthStK&,Box68,MiIfoid,NH 03055 603-673-5144 
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STACKING 
YOUR 



W /»MB1 HEARTBEAT 

^^/Sw' INTERRUPT 

*■ by George Blank and John Hartford 

How would you like to use your computer for two different tasks at one 
time? For example, you could print out mailing labels at the same time you are 
entering new names, or have sound effeas or graphics routines in a game 
without losing keyboard control! 

The secret is to use the heartbeat interrupt to call a machine language 
subroutine so that the computer alternates between your regular program 
and the machine language one. In order to do this, you must POKE the 
address of your subroutine into any convenient spot in memory, and the 
INSERT the address of your address into the heartbeat interrupt routine. 

The computer checks the addresses in the heartbeat routine for a C9 (HEX) 
return instruction, and if it gets an address instead, goes to that address and 
loads another address into the program counter, ft then executes the routine 
at the third address. 

There are two groups of interrupt addresses. The first group is cycled 
through so that it is only tested once every forty milliseconds, while the 
second group is accessed every five milliseconds. For example the real time 
clock routine is in the first group, and alternates with ? other possible tasks. 

The interrupt addresses are at 4S00 to 4S17 hex. 4200, 4202, 4204, 4208, 420 A, 
420C, and 420E are the addresses which rotate, while 4210, 4212, 4214, and 4216 
are serviced every 5 milliseconds. 

Remember that in a Z-80, you must put the least significant byte of each 
address in the first memory location, and the most significant byte in the next 
location. Each location holds a two byte address. 
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Lifeboat Associates, specialists in microcomputer disk software, is proud 
to offer the first professional disk-based language and utility package for 
the Radio Shack TR$-80 computer. Written by Microsoft, creators of Level 
II BASIC, lha package runs on a TRS-80 system with 32K RAM, one or more 
drives and TRSDOS. The sof twaLre Is supplied on diskettes and consists of: 

FORTRAN a true relocatable machine code compiler for 
ANSI FORTRAN X3.9 (except COMPLEX varjables). 
MACRO ASSEMBLER a disk-based macro assembler 
utilizing Zilog mnemonics and producing relocatable 
code, 

LINKING LOADER a link-edit and load FORTRAN and 
assembler modules for execution. 
SUBROUTINE LIBRARY a complete library of 
subroutines existing as relocatable linkable modules for 
FORTRAN or assembler programs - e.g., double preci- 
sion, square root, natural log, transcendentals, etc, 
DISK TEXT EDITOR to create and modify FORTRAN and 
assembler programs as disk files: also can be used as a 
general purpose text editor for correspondence and 
other documents. 

TRf-80 FORTRAfl 

This high-powered 

professional software 

package with full 

documentation 
is available at the 




DISCOUNT PRICE OF I 

PER COMPUTER SYSTEM 



The Macro Assembler, Loader, Editor, and Cross 
Reference Utilities alone $80. 

The Fortran Compiler, Loader, Editor, and extensive 
library of scientific functions alone $AQ 
Plus $5,00 Shipping 
(separately $2.50 each) 




Urn Software Exchange 

6 SouthStjeet, Box 68,MilfoKl,NH 03055 (02-673-5144 
* TRS-80 Is a registered trademark of Radio Shack and Tandy Corporation. 
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Repeatable Randomness 

Several computers other than the TRS-80 have a capability which ours 
lacks; the ability to REPEAT a sequence of random numbers. This 
feature can be quite useful when attempting to debug a program which 
makes use of the RND function. 

Well, we need no longer feel crushed and embarrassed. We too can 
repeat a random sequence! Try this: Turn off the machine. Turn it on 
again and enter the following: 
10 FOR 1 = 1 to 8 
20 PRINT 1 RND (0), 
30 NEXT 1: PRINT 
40 FOR 1=16554 to 1 + 2 
50 POKE I, 255: NEXT ! 
60 FORi = 1to8 
70 PRINT I RND(0), 
80 NEXT I 
As you can see, lines 40 and 50 have reset the random number "seed" 
to its "Power on" condition without turning off the computer. 

Poking values other than 255, 255, 255 into these three locations will 
give you different sequences which may then be repeated by rePOKEing 
the same values into the three "seed holders" (locations 16554, 16555 
and 16556. 

By the way, have you ever wondered what the RANDOM statement ac- 
tually does? It takes the contents of the refresh register and jams it into 
location 16555 - right in the middie of the three byte seed! The refresh 
register must point to all blocks of memory every few milliseconds, so its 
contents at any given time are unpredictable. 

At any rate, we now see why RANDOM only needs to be executed 
once in a given program. 
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ZERO SLASH KILLER 

by Timothy Smith, Monmouth, il 



Here is an assembly language program to eliminate the slash in the zero on 
line printer outputs. (Very useful when printouts are to be used by the general 
public (mailing labels/billings etc.) 

Instructions for use: 
Program may be loaded or poked in once before needed. Program will function 
until reset pressed or resetting pokes performed. 
Listing 

BFF3 F5 Push AF ; Save flags/accumulator 

BFF4 79 LD, A,C; Load character into accumulator 

BFF5 D630 SUB 30H; Subtract value of zero 

BFF7 2002 JR NZ„BFFB; If not zero go on 

BFF9 OE4F LD C.4FH; if zero change to letter O 

BFFB F1 POP AF ; recover flags/a'.cumulator 

BFFC 

C38D05 IP 058dH; on to line printer driver address 

To use: Load beginning of above routine into the lineprinter driver address 

4026H = MSB 4027H = LSB (exampie from above 4026H = F3 4027H = BF) 

To reset: Reset driver address to 058D (4026H =8D4027H =05) Poke and H4026, 

141: Poke and H4027,5 or press reset button (all programs stored destroyed) 

The program is set up for a 32K system, but can be adapted for 16K or 48K. 



The 80-Users of Houston club meets the first Wednesday of each 
month , at the Bellaire Chamber of Commerce Building, 6900 S. 
Rice in Bellaire, Texas at 7:30 PM. For more information, call Ben 
Taylor at (713) 664-5823. 
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SOFTSIDE ON CASSETTES 

If you have less time at the keyboard than you wouid like to, and 
have been missing out on some of SoftSide's feature programs, 
we've got a solution! 

NOW AVAILABLE BACK ISSUES W/MAGAZINE $9.95 



1979 

JANUARY 

Round the Horn • Ten Pin Bowling 

• Comput-A-Sketch • Kiddy Slot 

FEBRUARY 

• Form 1040 • Concentration 

• Elements Quiz 
MARCH Monitor ♦ jigsaw 

Tarot • Check Balance • Dive Bomber 

APRIL 

• Safari • Rabbits and Foxes 

• Persona! Finance (Checkfinder) 

• Series Circuits • Don't It Make My 
Brown Eyes Blue • Metric/English 

MAY Converter : 

• Dog Star Adventure • Awari * Letter 
Crunch • Math • Super Sub 

JUNE 

• Atlantic Ballon Crossing • German 
Word Quiz • Nim • Home Appliance 
Record System • Entrapment 

JULY 

• All Star Baseball • Yahtzee * Tank 

• Spelling Bee • Collision 

AUGUST 

• Nuclear Reactor • Storybook 

• Cryptogram • Shooting Gallery 

• Morse Code Tutor 

SEPTEMBER 

• Engineer • Treasure Dungeon 

• Hangman • Pyramids 

OCTOBER 

• Aptitude Test « Reaction Time 

• Battleship • Westward 1847 

• Tug-O-War 

NOVEMBER 

« Everest e Isolate • Energy Cost 
® Picture Puzzles ® Doodle Pad 
DECEMBER 

• Oil Baron * Drag Race • Show and 
Tell * Towers of Hanoi • Slalom 



1980 

JANUARY 

• Moving Maze • Bomber 

• Reflection • Dante's Inferno 

• Duck Hunter 

FEBRUARY 

Scott Adam's Backgammon 

• Parachute • Deadstick • Play It 
Again, Sam • Deep Six 
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PROOFREAD 

by Frank S. Kasper 



:& 



-• • * _AJP» • • • • J 
• • • JOTi ■ . * • 

I • • * « ■ • . T 



• ' •_» ■ • « . 

• *_•£»_• • • a • 
*-•-■-• • • • • 



Some programs have many statements for each line number. Have you ever 
had difficulty in getting a program of this kind typed into the computer and up 
and running? The question that immediately comes to mind is, has the program 
been copied accurately or does the program have glitches? Don't give up! Try 
the enclosed program for rapid accurate proofreading. 

The program to be proofread must be saved on disk in ASC II form. The print- 
out will be in large 32 character-per-line format in short single statements up to 
the first colon, semi colon.or ENTER. Each time ENTER key is pressed another 
statement is displayed. 



110 

120 

m 

156 
168 
170 



210 
228 
238 

m 

zm 



REM * PROOFREAD BV F S KfiSPER DEC 1973 * 

REM * THIS PROttffl HELPS YOU PROOFRETO BBSIC PROGRflHS * 
* STORED AS 8SCII FILES ON DISKETTE * 

CLEfiR 506. as 
INPUTWHRT IS THE FILESPEC OF THE pRGGRffi TO BE PROOF-READ* 

0P£M*1M*W 

If EGFfDTHEN 260 ELSE LINE INPUT 11, ft* 

5=1 

Sl=INSTR<S»f&":"> 

S2=INSTR<S,fi$..",") 

IF Si=8 AND S2=8 TrEN Sl=LEN<At>:S5=i:G0TG238 

IF S2O0:IFS2<S1 THEN S1=S2 

IF Si=8 THEN S1=S2 

as : PRINTCH»(23> :PRINT: PRI NTH! Die fit., S, Sl-S+i 5 

IF S3=i THEN 59=6: INPUT ;flS?;60T0l6e 

S=Sln : I NPUT , ASS . Q0T0188 

CLOSE. END 



FOR TSE 



Order Form 



SOFTWARE 
ONLY 



D Accts Rec II Disk 32K 79.95 

DAdvPers Fin Disk 24.95 

O 3 Adventures Disk 39.95 

Adventures on tape 14.95. 

O Count D Und P 

D Voodoo D Pirate's Cove 

D Mission impossible 

D 8trange Odyssey 

n Fun House 

D Pyramid Of Doom 

O Air Raid 14.95 

D All Star Baseball 7.95 

D Amateur Radio Disk 24.95 

D Amazln' Mazes 7.95 

□ Android Nlm 14.95 
D Appointment Log 9.95 
D Balloon Race 9.95 
D Backgammon 7.95 
O Barricade 14.95 
D Basic Handbook 14.95'Sl 
O Basic 8tatlstlcs 19.95 

□ Basic Styles Handbook 5.95 + $1 
D Batter Up 5.95 
D Bee Wary 14.95 
O Binders 4.95 + $1 
a Blorhythms 4.95 
D Breakaway 4.95 
a Breakaway/Robot 7.95 
D Bridge Challenger 14.95 
D Calculator 2.95 
D Cash Register 9.95 

Cassettes 

OC-10 10 For 6.50 + $1 

DC-20 " " 7.50 + $1 

D Chess Companion 7.95 

D Concentration 7.95 

O Crlbbage 7.95 

D Cubes 9.95 

O Directory Disk 9.95 

Diskettes 

a Dysan-boxofS 29.95 

D Verbatim - box ot 10 34.95 

O Diskette Storage Box 5.00 + $1 

□ Dog Star Adventure 9.95 
Drill Masters 7.95 

O German D Italian 

D Spanish D Russian 

O French O Music Theory 
Electric Pencil 

Q Tape - 99.00 O Disk - 150.00 

a End Zone 7.95 

D Educator Assistant 9.95 

O80B0-Z80 Conversion 14.95 

□ Z80 Instruction H'book 4.95 + $1 
D Electronics Assistant 9.95 
O Fastgammon 19.95 
a File Handling 9.95 
Q File Manager 80 49.9S 



O Floppy Armour - box of 5 4.95 + $1 

O Fortran/Assembler 150.00 

D Fortran 8O.00 

D Assembler 80.00 

D General Ledger Disk 79.95 

O Ham Radio 9.96 

D Amateur Radio Disk 24.95 

D Hlstograph/Scattergram 9.95 

D Home Financial Man. 9.95 
D Intro TRS-80 Graphics 7.95 + 1 

O Inventory 1L2 Disk 59.95 

O Inventory IL3 Disk 79.95 

D Inventory II Disk 150.00 
Inventory S 
D Tape - 24.96 □ Disk - 39.95 

D Journey Center Earth 7.95 

D Kamikaze 7.95 

D Keyboard 80 9.95 

D Krlegspell 7.95 

O KVP Extender 24.96 

OKVPonDlsx 29.95 

a KVP232 24.95 
D teaming Level II 15.95 + $1 

O Level I In Level II 14.95 

D Level III BASIC ■ 49.95 

O LifetWO 14.95 

O Light Pen 19.95 

□ Machine Lang. Mon.(RSM-2) 26.95 
D Machine Lang. Mon. (RSM-2D) 29.96 
D Magic Paper Calculator 14.95 
O Mall List I Disk 19.95 
D Mall Ust II Disk 99.95 
D Mastermind 7.95 

□ Math Drill 4.95 
Mean Checkers Machine 

a Tape - 19.95 DOisk - 24.95 

□ Microchess 1.5 19.95 
a Mlcrotext Editor 9.95 
D Moving 8lgnboard 9.95 
O NEWDOS 49.95 

□ NEWD0S+ 99.95 
D 9 Games/Preschool Child 9.95 

□ Payroll Olsk 59.95 

□ Pentomlnoes 7.95 
Periodical Cross Reference 

□ Tape • 14.95 D Disk • 19.95 

D Personal Finance 9.95 

D Pork Barrel 9.95 

O PR Dogfight 7.95 

D Preflight 20.00 

Renumber 7.95 

O 16K □ 32K D 48K 

Q Three on Disk 25.00 

Q Robot 4.95 

Q 'Round the Horn 9.95 

a RPN Calculator 9.95 

□ RSM-2 26.95 
D RSM-2D 29.95 
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D Safari 




7.95 


D System Copy 


9.95 


D Sargon Chess 




19.95 


D Talpan 


9.95 


O Sargon II 




29.95 


D Ten Pin (bowling) 


7.95 


D Sargon Handbook 


M.85 + *1 


O Text 80 Disk 


59.95 


Secrets ot the Tarot 




9.95 


D3-OTicTacToe 


7.95 


O Simple Simon 




4.95 


D Time Bomb 


4.95 


D Sink 'Um 




4.95 


O Time Trek 


14.96 


D Slalom 




7.S5 


D Treasure Dungeon 


7.95 


Small B' slness Bookkeeping 






D Treasure Hunt 


7.95 


D Tape -15,00 ODIsk- 


■25.00 




n Trail's Gold 


4.95 


C Journal ■ 7.00 






D TRS-90 Assy. Un. Pro. 


3.95 + $1 


D Snake Eggs (sound) 




14.95 


D Tycoon 


7.95 


Space Bailies 






D Typing Tutor 


19.95 


D Tape - 14.95 D Disk - 


13.95 




□ Warfare 


7.95' 


aStarTreklll.3 




14.95 


DX-WIng Fighter II 


9.95 


D ST80 Smart Terminal 




49.95 


O Z-SO Chip Poster 


3.99 + $1 


D ST80D Smarter Disk 

Tim Cn 


iff 


79.95 


D Z-80 Gourmet Cookbook 


14.65 + S1 

», i — 



6 SOUTH STREET MILFORD, NH 03055 



Order Number 603-673-5144 



Level II software available on disk for a $5.00 (per order) medium charge. This extra fee is for any number 
of programs transferred to disk from tape when you order. If the order exceeds the capacity of a single 
disk, we absorb the extra cost. 
Please state level and memory size on order form . . . otherwise, we automatically ship Level II cassettes. 

Be sure to include handling charge and any additional charges when figuring your total. All orders 
shipped with 24 - 72 hours. Prices subject to change without notice. 



a ups 



D 1st Class 



□ Charge 



□ COD 



Charge catd account number 



Signature 

Expt.Date Inter.* 

Charge customers: please till In account Information above and below 



Name 



Address 
City 



.State Zip . 



ALL SOFTWARE SOLD ON AN AS-IS BASIS WITHOUT WARRANTY 1 . TSE assumes no liability for loss or 
damage caused or alleged to be caused directly or indirectly by equipment or products sold or ex- 
changed by them or their distributors, including but not limited to -any Interruption In service, loss of 
business or anticipalory profits or consequential damages resulting from use or operation of such 
equipment or software. We are not responsible for typographical errors anywhere In this publication, 

DO NOT FORGET 
SHIPPING CHARGES 



Shipping Charge - Add $1 



Disk Charge - Add $5 



All C.O.D. and overseas orders most add $5. 
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33B3 



IH 



POBOX68 

Milford, NH 03055 

"your BASIC tohware magazine' 

Rush me the next 12 issues of SoftSide. 



,e_ 



1 
l 

DUSA bulk . $18 1 yr. DS32-2 yrs: nCANADA/MEXICO $25 1 yr. j 

□ USA first class $25 1 yr. ■ DOVERSEAS airmail $30 1 yr. j 

□APO/OVERSEAS surface $25 1 yr. TeleprKm your eharga.eard order! Call , 

^^^_ our Subscription office Monday through I 

Credit Card i?M Friday 9:30 to 5:30 (Eastern time) at t 

C ' " mmm 603-673-5144 ( 



Exp. Date- 
Signature. 



nterbank # 



(M/Corily). 



I Name . 



Address - 
City 



-State - 



Zip- 



* Please remit in US funds ONLY | 



Ready to get serious? SUBSCRIBE TO PROG/80 the magazine 
dedicated to serious programmers... beginners to professionals 

SUBSCRIPTION RATES - 6 Imum per year 

USA Canada 

Bulk mail - $15,00 Mexico 

first Class Mail - $21 .00 APO/FPO ' 

Overseas airmail - $27.00 Overseas i 




NAME 



ADDRESS. 



CITY 



STATE 



-ZIP. 



Telephone orders accepted for Master Charge or VfSA accounts. Call Monday through 
Friday, 9:30 to 6:30 EST at 803-873-5144 

PO BOX 68, MILFORD, NH 030S5 
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TTNYCOMP 

by Dave Bohlke 

A BASIC Compiler in BASIC! Run your source program in 
BASIC, Compile it into FASTZ-80 Code and execute the compiled 
version — all without reloading. 26 Variables, GOTO, GOSUB, 
END, REM, RND, LET, +, -, IF, THEN, ELSE, <,=,>, INKEY$, 
CLS, PRINT@, CHR$. Compiled programs may be saved via 
TAPEDISK. 

Supplied with game program, which uses all of the TINY 
COMP Statement set and is ready to compile. 

Manual includes several sample programs as well as thorough 
documentation of the Compiler for those who like to know "how 
things work" and for those who might even wish to EXPAND on 
TINY COMP's capabilities. 

Tape version: $19.95 Disk version: $24.95 

The Software Exchange 

6 SouthStreet,Box 68,Milford,NH 03055 603-673-5144 
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